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AVALANCH 




Precisamos de incentivos e premios^ 
- como bolo e limonada - 
para ir em frente em nossa aventura. 
Mas nao relaxe: as serpentes assassinas 
estao sempre k espera de urn descuido 



Depois de montado, o cenMo requer 
apenas algumas modifica?6es para se 
adaptar aos diferentes niveis de dificul- 
dade. No segundo nivel, o grande pro- 
blema de Willie consiste nos buracos 
existentes ao longo da encosta. Para 
desenhd-los, colocam-se blocos grificos 
da cor do ceu sobre o perfil da monta- 
nha. As cobras surgem apenas a partir 
do tercejro nivel de dificuldade. A roti- 
na que as movimenta serA incorporada 
ao programa mais tarde. 



10 REH org 58455 

20 REM elb Id a, (57344J 

30 REM Id hi, 57272 

40 REM Id b,a 

SO REH inc b 

60 BEH Id de.8 

70 REM ab add hl.de 

80 REM djnz ab 

90 REM puBh hi 
100 REM pop be 
110 REM Id hi. 191 
120 REM Id a, 58 
130 REM call print 
140 REM Id a, (57344) 
150 REM cp 
160 REM jr 2,ed 
170 REM push aC 
leo REM call hlB 
190 HEM pop af 
200 REM cp 1 
210 REM jr z.ed 
220 REM call snp 
230 REM ed ret 
240 REM hlH Id hi, 457 
250 REM call hip 
260 REM Id hi, 401 
270 REM call hip 
280 REM Id hi ,314 
;iqO REM call hip 
300 HEM ret 
310 REM hip Id b,4 
320 REM hlq push be 
330 HEM Id be, 15616 
340 REM Id a, 45 




ROTINAS ENCARREGADAS 
DE FORNECER OS PREMIOS 



ASSASSINAS 



ROTINA DE IMPRESSAO 



NiVEIS DE DIFICULDADE 
BURACOS E MAIS BURACOS 



DAS FIGURAS 



COMO TESTAR 



DESENHO DAS COBRAS 



PROGRAMA 




350 


RSH 


call print 


360 


REM 


Id de,32 


370 


REM 


add hl.de 


380 


REM 


pop be 


390 


REM 


djnz hl<] 


400 


REM 


ret 


410 


REM 


onp Id hi, 457 


420 


REM 


call and 


430 


REM 


Id hi, 401 


440 


REM 


call anq 


450 


REM 


Id hi, 314 


460 


REM 


call anq 


470 


REM 


ret 


460 


REM 


anq Id a, 4 


490 


REM 


Id be, 57232 


500 


REM 


snr push af 


510 


REM 


Id a, 43 


520 


REM 


call print 


630 


REM 


Id de,32 


540 


REM 


add hi ,de 


550 


REM 


pop aC 


560 


REM 


dec a 


570 


REM 


jr nz.snr 


580 


REM 


ret 




590 


REM 


print org 5S217 




OS PREMtOS 



O conteijdo do endere^o 57344 6 co- 
locado no acumulador. Esta posi(;ao de 
memoria seri utilizada para armazenar 
o mVel de dificuldade em vigor. O par 
de registros HL recebe a seguir o ende- 
re?o inicial dos padroes dos premios na 
tabela de dados. O nivel de dificuldade 
i transferido do acumulador para o re- 
gistro B, aumentando, entao, em uma 
unidade. O par DE recebe o niimero 8 
e e somado ao par HL. 

O laijo rotulado com ad prossegue 
adicionando 8 ao apontador HL at^ que 
o conteiido de B se torne zero. Lembre- 
se de que a Jnstrugao djnz opera sobre 
o registro B: subtrai uma imidade e sal- 
ta se o conteiido deste nao tiver chega- 
do a zero. Tal processo movimenta o 
apontador do padrao do premio — o par 
de registro HL — pela tabela, ate que 
ele aponte para o inicio do bloco grafi- 
co adequado ao m'vel de dificuldade vi- 
genie. Cada bloco e urn quadrado de oi- 
to por oito pontes, ocupando, assim, oi- 
to bytes na tabela. 

O resultado dessas adi(;6es repetidas 
fica no par de registros HL. Contudo, 
a sub-rotina print precisa dele no par BC 
para imprimir o bloco correspondente. 
A maneira mais fdcil e ripida de pro- 
mover a transferencia consiste em guar- 
dar o valor de HL na pilha, recuperan- 
do-o em seguida em BC. 

A cor do caractere do premio ^ codi- 
ficada pelo numero 58, colocado era A, 
Depois disso, o programa chama a sub- 
rotina print, que desenha o bioco na cor 
apropriada. Essa rotina foi fornecida no 
primeiro artigo da s€rie Avalanche (pa- 
gina 748). 



NIVEL DE DIFICULDADE 



O conteiido da posi(;3o de memdria 
usada para guardar o nivel de dificulda- 
de volta para o acumulador. O compu- 
tador verifica inicialmente se ele d igual 
a zero. Em caso afirmativo, a instru?ao 
jr 2,ed salta para o final da rotina, e 
a instru?ao ret provoca o retorno da 
mesma. 

Se nivel vigente for diferente de ze- 
ro, o processador preserva seu numero, 
guardando-o na pilha. A sub-rotina his, 
que desenha os buracos ao longo da en- 
costa, d chamada a seguir. O m'vel de di- 
ficuldade i entao recuperado da pilha e 
coraparado a 1. Nesse nivel, temos v&- 
rios buracos mas nao existe nenhuma 
serpente dent ro deles. Assim, se A con- 
dver 1, a instru^ao cp I resulta em zero, 
o que ativa o indicator de zeros. A ins- 
trucao jr z,ed salta, entao, para o final 
da rotina, onde ret provoca o retorno. 

Se m'vel for maior que 1, a sub- 
rotina snp, que desenha as serpentes as- 
sassinas, e chamada. Depois disso, o 
programa termina. 

puando a rotina principal de controle 
estiver na memdria, o processador retor- 
nara a ela. For enquanto, ele retorna ao 
BASIC. 



OS BURACOS 



A sub-rotina seguinte tem a fungao 
de cavar buracos ao longo di-encosta, 
Eia comega com o rdtulo his, que e cha- 
mado pela rotina principal quando e 
precise acrescentar os buracos ao cena- 
rio. Tres pequenos mddulos, com duas 
instru(;5es cada um, compoem essa sub- 
rotina. Eles comegam com comandos do 
tipo Id hi, que colocam no par HL o en- 
dereco da tela correspondente a posigao 
de impressao do topo de cada buraco. 
Apos cada instrugao desse tipo, a roti- 
na hip i chamada para colocar os blo- 
cos que formam o buraco sobre o dese- 
nho da encosta, feito pelos programas 
dados no ultimo artigo. 

A sub-rotina contem trSs mbdulos 
porque deve desenhar trSs buracos, ca- 
da um em uma posi^ao diferente colo- 
cada em HL. Todos eles silo feitos da 
mesma maneira. pela sub-rotina hip. 



MAIS BURACOS 



Como cada buraco tem quatro blo- 
cos de profundidade, o niimero 4 d co- 
locado no registro B e guardado tempo- 
rariamente na pilha. O par BC recebe, 



entao, o enderego de um espa^o em 
branco. Na realidade, este e um byte da 
tabela de c6digos para o alto da tela. 

O c6digo da cor do ceu — 45 — vai 
para o acumulador e a sub-rotina print 
6 novamente chamada. Assim, para co- 
locar primeiro bloco cor do ceu sobre 
perfil da encosta, o computador lira 
a primeira "pa de terra" do local onde 
ficard o buraco. 

Colocando 32 em DE e somando es- 
se valor a HL, fazemos com que este par 
aponte para o enderego da posigao ime- 
diatamente inferior. O contador e recu- 
perado da pilha e a instru(;io djnz sub- 
trai uma unidade dele, saltando em di- 
re?ao ao r6tulo hlq, se B ainda nao for 
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zero. O processador executa esse la90 
quatro vezes, imprimindo mais um blo- 
co cor do ceu — ou tirando mais uma 
pa de terra — ■ a cada volta. 



AS COBRAS 



O resto do programa desenha as co- 
bras. As sete primeiras instru^oes sao 
parecidas com as que iniciam a rotina 
dos buracos. Elas colocam no par HL 
a posigao de impressao de cada cobra, 
chamando em seguida a sub-rotina que 
desenha a serpente. 

Esse rotina tambem se assemelha 
^quelaque desenha OS buracos — afinal, 



as cobras devem caber dentro deles. 

Desta vez, o contador ficari no acu- 
mulador, pois precisaremos controlar o 
apontador da tabela de padroes. No ca- 
se dos buracos, esse apontador foi di- 
recionado para o endereto de um espa- 
go em branco. Aqui ele percorrera a ta- 
bela que criamos na mem6ria RAM. A 
sub-rotina print atualiza automatica- 
mente o apontador, movendo-o para o 
pr6ximo byte. Como o apontador fica 
no par de registros BC, ten'amos que fi- 
car guardando seu valor na pilha. se qui- 
s^ssemos recorrer k instrutao djnz para 
controlar o la?o. Com o contador em A, 
essa instru?ao 6 substituida por dec a e 
jr nz, snr. 




TESTE DA ROTINA 



Para testar a rotina, coloque niveis de 
dificuldade de a 3 no enderego 57344, 
usando o comando POKE 57344. Cha- 
me a rotina com RANDOM 58455 e ve- 
rifique se os buracos estao sendo dese- 
nhados no nivel 1; as cobras, nos m'veis 
2 e 3, e se premios diferentes aparecem 
a cada nivel. 



O programa listado a seguir desenha 
OS buracos e as serpentes assassinas ao 
longo da encosta, conforme o nivel de 
dificuldade. 



10 


ORG 192B9 


20 


ELB LDA 18238 


30 


LDB «16 


40 


MOL 


50 


ADDD 118142 


60 


TFB D,U 


70 


LDX 12782 


80 


JSR CHAflPR 


90 


LDA 1B23B 


100 


BEQ ED 


110 


FSHS A 


120 


JSR HOLES 


130 


PULS A 


140 


CMPA tl 


150 


BEQ ED 


160 


JSR SNAKE 


170 


ED RTS 


180 


HOLES LDX 15095 


190 


LDU 13071 


200 


JSR HOLPR 


210 


LDX 14591 


220 


LDU #3071 


230 


JSR HOLPB 


240 


LDX #3833 


250 


LDU t3071 


260 


JStl HOLPR 


270 


RTS 


260 


SNAKE LDX #5095 


290 


LDU #18078 


300 


JSR HOLPR 


310 


LDX #4591 


320 


LDU #16078 


330 


JSR HOLPR 


340 


LDX #3833 


350 


LDU #18078 


360 


JSR HOLPR 


370 


RTS 


360 


HOLPR LDB #4 


390 


HOLPRI PSHS U.X.B 


400 


JSR CHARPR 


410 


PULS B.X.U 


420 


LEAX 256.x 


430 


LEAU 16, U 


440 


DECB 


450 


BNE HOLPRI 


460 


RTS 


470 


CHAfiPR LDB #2 


4S0 


CHARI PSHS B.X 


490 


LDB #8 


500 


CHARZ PULU A 


510 


STA ,X 



Bl3 



imiiii 
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520 


LEAX 32, X 


530 


DECS 


540 


BNE CHABZ 


550 


PULS X.B 


560 


LEAX 1,X 


570 


DEC6 


5sa 


BNE CHASI 


590 


RTS 



COMO TESTAR PROGRAMA 



Esse programa acrescenta blocos gri- 
ficos ao cendrio ja montado. Portanto, 
para testi-lo, e precise que as rotinas e 
tabelas criadas anteriormente estejara na 
memdria do micro. Depois de carregar 
OS codigos e montar o programa, digite 
as linhas BASIC que seguem. Elas per- 
mitirao que voce execute a parte do jo- 
go j^ programada. 

5 PCLEAR4: CLEAR 200,16999 
10 EXEC 19000: EXEC 19109 
20 POKE 18238.0 
30 EXEC 19289 
40 GOTO 4 

A Itnha 10 executa parte do jogo 
montada nos artigos ameriores; a 20 
acerta o valor do nivel de dificuldade e 
a 30 executa o programa deste artigo. A 
40 serve apenas para manter a tela de al- 
ia resolufao ligada. 

Para termos certeza de que nossa re- 
tina funciona perfeitamente, devemos 
interromper o programa com BREAK 
e editar a Hnha 20 para mudar o nivel 
de dificuldade. O mVei deixa o cend- 
rio intacto, apenas com a montanha — 
OS perigos dessc nivel sao as pedras, que 
faremos rclar morro abaixo em outra 
parte do programa. 

O m'vel 1 desenha os buracos na en- 
costa e o 2 acrescenta as serpentes as- 
sassinas, O ntVd 3 soma a tudo isso a 
avalanche, que, como dissemos, serA 
promovida per outra rotina. 

Teste cada um dos niveis. Verifique 
se as guloseimas roubadas estao sendo 
desenhadas no topo da montanha. 



NIVEIS DE DIFICULDADE 



O enderego 18328 seri usado para 
guardar o nivel de dificuldade em vigor. 
Seu conteudo transfere-se para o acu- 
mulador no inicio do programa e, em se- 
guida, o numero 16 ^ colocado no re- 
gistro B. A instru?ao MUL multiplica 
o conteiido desses dois registros, colo- 
cando o resultado em D. 

Como o bloco grdfico de cada pre- 

mio tern dezesseis bytes de comprimen- 

10, precisamos multiplicar o nivel vigen- 

te por dezesseis, para obtermos na ta- 

^^M beia o padrao do bloco a ele adequado. 



O numero obtido pela soma de 18 142 
ao resultado da multiplicacao indica a 
posigao inicial do padrao do bloco de- 
sejado, Tia tabela de padroes. Esse apon- 
tador ^ enlSo transferido para o regis- 
tro U, que funciona como apontador da 
pilha do usuirio. 

O registro X recebe o valor 2814, po- 
sigao de impressao do premio na tela 
grdfica. Em seguida, o processador sal- 
ta para o r6tulo CHARPR, que impri- 
me o bloco grifico correspondcnte. 

A instrucao LDA 182J8 rep6e o ni- 
vel de dificuldade dentro do acumula- 
dor. Se o nfvel for zero, a instruf ao BEQ 
provoca um desvio para o r6tulo ED. 
Como neste nivel j^ nada mais precisa 
ser acrescentado ao cendrio — com ex- 
ce^ao do pr8mio — , a instrmjao RTS 
termina a sub*rotina. 

Se o nivel for maior que zero, o pro- 
grama guarda seu numero na pilha da 
miquina. A sub-rotina que cava os bu- 
racos na encosta ^, entao, chamada. 

Depois que a escava^ao termina, o ni- 
vel e recuperado da pilha e comparado 
a 1 . Se este for o numero do nivel atual, 
a instru^ao que desenha as cobras, JSR 
SNAKE, 6 ignorada e o processador re- 
torna da sub-rotina. 



BURACOS E COBRAS 



As rotinas que desenham os buracos 
e as cobras compoem-se de trSs series de 
tres instruf oes, e funcionam da mesma 
maneira. Em cada s^rie, o registro X re- 
cebe a posiipao da tela onde deve ser im- 
presso o topo do bloco grifico, enquan- 
to o registro U recebe o endereco inicial 
do padrao do bloco na tabela. Em se- 
guida, o processador salta para a reti- 
na de impressao, HOLPR. 

Como todos OS buracos sao iguais, o 
apontador da tabela tern sempre o va- 
lor inicial 307 1 . Esse enderego nao fica 
na tabela, e sim na tela, pois o buraco 
nada mais e que um bloco cor do c^u. 
O mesmo acontece com as cobras, cujo 
bloco grdfico tern enderego inicial 18078 
na tabela de padroes, 

As cobras sao impressas, evidente- 
mente, na mesma posigao que os bura- 
cos que ocupam. O topo do primeiro 
buraco fica em 5095; o segundo, em 
4591 e o terceiro, em 3833. Tanto as co- 
bras quanto os buracos sao desenhados 
sobre o perfil da montanha original. O 
restante do cendrio permanece intacto. 



A ROTINA DE IMPRESSAO 



As rotinas HOLES e SNAKES cha- 
mam a sub-rotina HOLPR, que 6 res- 






t> 



ponsdvel tamo pelo desenho dos bura- 
cos quanto pelo das cobras. 

O registro B recebe inicialmente o nii- , 
mero 4 — os buracos tem quatro bio- ^ 
cos de profundidade. Os registros U, X 
e B sao guardados na pilha antes que a 
rotina CHARPR seja chamada. Esta.e 
responsavei pela impressao do bloco in- 
dicado pelo apontador de tabela de pa- 
droes na posigao determinada por X. 

Assim, se estiverraos no nivel 1 e for- 
mos desenhar um buraco, o apontador 
da tabela, U, indicara seu padrao e a ro- 
tina se encarregara de coloca-lo na po- h 
sigao dada por X. Se estivermos no ni- * 
vel 2 ou 3, U apontara para o padrao 
do bloco da cobra, que sera impresso na 
posigao X da tela. ^ 

Uma vez feita a impressao B, X e U 
sao recuperados da pilha. X recebe en- 
tao o valor X + 256, que corresponde k 
posigao de impressao imediatamente in- 
ferior. U recebe o valor U+16, que 
aponta para o padrao do pr6ximo blo- 
co grafico na tabela. 

Em seguida, B i subtraido em uma 
unidade e, se ainda nao foi reduzido a 
zero, o processador volta ao rotulo "* 
HOLPRL Quando o conteudo desse re- 
gistro chegar a zero, todos os quatro 



^ / 



blocos terao sido desenhados, a instru- 
(;ao BNE HOLPRI serd ignorada e o 
processador retornari da sub-rotina. 

A impressao do bloco e feita pela ro- 
tina CHAMPR, que explicamos a seguii. 

Cada bloco gr^fico impresso na tela 
tern dezesseis bits — dois bytes, portan- 
to — de largura e oito bits de profundi- 
dade. O registro B recebe, assim, o va- 
lor 2, para contar a laigura do buraco. 
Esse contador e preservado na pilha, 
juntamente com a posigao de impressao 
contida no registro X. B recebe eritao o 
valor 8, para contar a profundidade do 
bloco. 

O byte correspondente ao padrao da 
linha do bloco e recuperado da pilha do 
usuario, colocado no acumulador e, em 
seguida, transferido para a posifao de 
impressao apontada pelo registro X. Por 
meio desse processo, o bloco e impres- 
so linha por linha na tela. 

A instrui;ao LEAX 32,X coloca o va- 
lor X + 32 no registro X, movendo o 
apontador de posi?oes de tela uma linha 
de pixels para baixo. O contador B t di- 
minuido em uma unidade e o processa- 
dor retorna para imprimir o proximo 
byte, at^ que B tenha sido reduzido a ze- 
ro — BNE CHARZ. 



Em seguida, X e B sao recuperados 
da pilha e X recebe o vaJor X + 1 — 
LEAX 1,X — , que faz o apontador 
mover -se um byte para a direita na te- 
la. O contador B i entao subtraJdo de 
uma unidade. Se ele ainda nao tiver si- 
do reduzido a zero, o processador retor- 
na ao rdtulo CHARI para imprimir 
mais uma coluna de oito bytes. Quan- 
do B ji for igual a zero, as duas colu- 
nas estarao desenhadas e o processador 
retornar^ da sub-rotina CHARPR. 



10 


org 53682 


20 


Id a, (-5228) 


30 


rla 


40 


rla 


50 


Id b,56 


60 


add a,b 


70 


Id h] . (62407) 


80 


Id de,2S4 


90 


add hl.de 


100 


call 77 


110 


Id a. (-5228) 


120 


cp 


130 


jr z.ed 


140 


push af 


150 


call ho 


160 


pop aC 


170 


cp 1 


180 


jr z,ed 


190 


call sn 


200 


ed ret 


210 


ho Id de,457 


220 


push de 


230 


Id de,401 


240 


push de 


250 


Id de,3a4 


260 


puah de 


270 


Id C.3 


2B0 


po Id hi, (62407) 


290 


pop de 


300 


Id b,4 


310 


pp add hl.de 


320 


Id a, 254 


330 


pu8h hi 


340 


puah be 


350 


call 77 


360 


pop be 


370 


pop hi 


380 


Id de,32 


390 


djnz pp 


400 


dec c 


410 


jr nz.po 


420 


ret 


430 


an Id a, 37 


440 


Id (-5227) ,a 


450 


add a, 3 


460 


Id (-5225) .a. 


470 


add a,l 


480 


Id (-5225) ,a 


490 


add a, 3 


600 


Id (-5224) ,a 


510 


Id de,4S7 


S20 


push de 


530 


Id de,401 


540 


push de 


550 


Id de.314 



560 


push de 


570 


Id c,3 


580 


po Id hi. (62407) 


590 


Id de,-5227 


600 


Id (-5220). de 


610 


pop de 


620 


Id b.4 


630 


pp add hi ,de 


640 


Id de, C-S220) 


650 


Id a, (de) 


660 


inc de 


670 


Id (-5220), de 


680 


puah hi 


690 


push be 


700 


call 77 


710 


pop be 


720 


pop hi 


730 


Id de,32 


740 


djnz pp 


750 


dec c 


760 


jr nz.po 


770 


ret 


780 


end 



ROTINA DE PREMIOS 



O conteiido do enderepo -5228 i co- 
locado no acumulador. O nivel de difi- 
culdade do jogo ficari armazenado nes- 
sa posigao de memdria. 

O vaJor de A (0, 1,2 gu 3) serd utifi- 
zado para gerar o c6digo da tabela de 
padroes que corresponde ao prSmio no 
nivel vigente, ou seja: 



nivel valor de A 



1 
2 
3 
4 




1 
2 
3 



premio 

sanduiche 
maga 
gairafa 
sorvete 



cddigo 

56 
60 
64 
68 



Arraazenamos o c6digo de padrao do 
sanduiche, 56, no registro B. Este serd, 
portanto, o c6digo-base. Em seguida, 
multiplicamos o conteiido de A por qua- 
tro — a opera^ao equivale a deslocar o 
conteiido de A dois bits para a esquer- 
da, o que e feito peta instru^ao rla exe- 
cutada duas vezes. 

Somando o codigo-base contido em 
B ao valor de A, obtemos no acumula- 
dor o cddigo do premio certo. 

O enderego inicial da tabela de nomes 
de VRAM, que esti nas posi?6es de me- 
m6ria 62407 e 62408, e colocado no par 
de registros HL. Adicionaraos a esse en- 
derego o desiocamento correspondente 
h posigao na qual desejamos imprimir 
o premio — 256, que equivale ao topo 
da montanha. 

Para a impressao do bloco corres- 
pondente ao premio, utiliza-se a sub- 
rotina 77 da mem6ria ROM. Esta colo- 
ca o valor do acumulador A na posicao 
da VRAM apontada pelo par HL. No 
nosso caso; ela coloca o c(5digo do blo- 
co do prSmio na tabela de nomes. 

Lembre-se de que a tela, no modo de 
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alta resoluQao, ^ um retlexo da tabela ae 
nomes da VRAM. 



NiVEL DE DIFICULDADE 



O conteiido da posi^ao de memoria 
que guarda o m'vel de dsficuldade ^ pos- 
to de volta no acumulador. Se for iqual 
a zero, a instru<;ao jr z,ed salta para o 
final da rotina onde se encontra a ins- 
trufao ret. Caso contr^rio, o processa- 
dor continua preservando o numero do 
nivel na pilha. A sub-rotina his, que de- 
senha os buracos ao longo da encosta, 
e entao chamada. 

O nivel de dificuldade e recuperado 
da pilha e comparado a I. Nesse nivel 
temos varios buracos, mas nenhuma ser- 
pente dentro deles, Logo, se A contiver 
1, a instrui^ao cp 1 resulta em zero, o que 
ativa o indicador de zeros. A instru(;ao 
jr 2,ed salta novameme para o final da 
rotina e reiorna. 

Se o m'vel for superior a U a sub- 
rotina snp, que desenha as serpentes as- 
sassinas, e chamada e, depois, o progra- 
ma termina. Quando a rotina principal 
de controle estiver na mem(3ria, o pro- 
grama retornara a ela. For enquanto, re- 
torna ao BASIC. 



OS BURACOS 



A proxima sub-rotina € totalmente 
dedicada a cavar buracos ao longo da 
encosta. Ela eome^a com o rotulo ho, 
chamado pela rotina principal quando 
surge a necessidade de acrescentar os bu- 
racos ao cenario. Inicialmente, ho arma- 
zena na pilha o enderepo da tela corres- 
pondente a. posigao de impressao do to- 
po de cada buraco. Como sao tres bu- 
racos, isso € feito tres vezes. 



Todos sao desenhados da mesrva ma- 
neira, por intermedio do la^o ho que co- 
loca no par de registros HL o endereco 
iniciai da tabela de nomes da VRAM, 
adicionando a ele o enderego da tela cor- 
respondente a cada buraco, 

O registro C e usado como contador 
para os tres buracos, e a instrufao jr nz, 
ho testa o fim da rotina. 

Como cada buraco tern quatro bio- 
cos de profundidade, esse valor e colo- 
cado no registro B, que cont6m o niime- 
ro de execu(;6es do lai;o hp. 

codigo da tabela de padroes do blo- 
co cor de ceu e armazenado no acumu- 
lador A, Em seguida. a rotina 77 da 
ROM, cujo funcionamento explieamos 
anteriormente. e chamada. 

Para eviiar possiveis alteracoes de 
correntes da rotina 77, as instru^;6es 
pusch e pop sao usadas para proteger os 
contadores no par BC e os endercfos no 
par HL. O contador e recuperado da pi- 
lha e a insirugao djnz subirai uma uni- 
dade dele, saltando em dire^ao ao rotu- 
lo hp se registro B ainda nao tiver si- 
do reduzido a zero. 

O lapo, executado quatro vezes, lira 
uma "p^ de terra" a cada volta. 



AS COBRAS ASSASSINAS 



Cabe k rotina sn desenhar as cobras. 
O processo e basicamente igual ao da ro- 
tina ho e as cobras sao desenhadas nas 
mesmas posifdes que os buracos. Ha 
uma diferenga fundamental: para cavar 
um buraco, precisamos colocar o mes- 
mo padrao do bloco cor de ceu quairo 
vezes; jd para desenhar uma cobra te- 
mos que mudar o codigo do padrao pa- 
ra cada parte do animal. 

Essa tarefa seria muito simples se os 
codigos dos padroes que formam a co- 
bra estivessem em seqiiencia, Por^m, co- 
mo voce pode verificar na tabela de pa- 
droes, isso nao ocorre. Armazenamos, 
assim, no inicio da rotina, os cddigos dos 
padroes que formam a cobra ~ 37, 40, 
41, 44 — nos endereiyos de -5227 ate 
-5224. Depois, basta assegurar que es- 
ses endere^os sejam chamados seqiien- 
cialmente para cada cobra a ser desenha- 
da. Isso e feito por intermedio do par 
DE, que serve como ponte, armazenan- 
do o endereto iniciai da tabela (-5227) 
nas posi^oes -5220 e -5219. Esses ende- 
re(;os contem o endere^o do codigo do 
padrao correspondente a cada uma das 
paries da cobra. 

No mais, esta rotina d identica k que 
cava buracos. 



TESTANDO 



Para testar a rotina, digite o seguin- 
te programa BASIC; 
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DEFUSE .1 = -1.2144 


20 


DE:FUSR2 = -1 197.1 


30 


DEFUSR.1 = -1 18154 


40 


A=USR) (0) 


50 


A=USB2(0) 


60 


A-lfJiH.") (0) 


70 


(lOTO /O 


flO 


l,ND 



A linha 40 chama a rotina -12144, 
que coloca a tela no modo de alta reso- 
lugao, e a 50 chama a rotina -1 1973, en- 
carregada de desenhar a montanha na 
tela. A linha 60 chama a rotina apresen- 
tada nesie artigo. 

A tela e mantida no modo de alta re- 
solugao pela linha 70. 

Para testar o funcionamento da ro- 
tina nos varios niveis de dificuldade, di- 
gite POKE -522S,A, atribuindo k varia- 
vel A OS valores 0, 1, 2 ou 3, 




DOTIRS-8 




cOpia da tela 



FUNCAO VARPTR E ViPEO 
TRANSFER^NCIA 



aplicacOes 



IMPRIMINOO A TELA 



Pode-se consultar, com o BASIC, as 
posiqdes da memdria que armazenam o 
video e as cadeias de caracteres, 
Usando esse recurso, voce tornard seus 
programas bem mais r^pidos. 



No artigo anterior desta s^rie, vimos 
como manipular o conteudo da memd- 
ria de video do TRS-80 e compativeis 
com o auxilio dos comandos PEEK e 
POKE. Podemos fazer isso porque o vi- 
deo do TRS-80 i mapeado direiamente 
em um segmento fixo da RAM, que co- 
me?a na loca?ao 15360 e se estende at^ 
a locagao 16376. Cada caractere na tela 
e armazenado em uma posi^ao corres- 
pondente dessa memoria de 1024 bytes. 

Porem, os comandos PEEK e POKE 
sac muito lentos quando usados dentro 
de iacos FOR... NEXT para a transfe- 
rencia, consulta ou escrita de grande 
quantidade de caracteres na tela. Ha 
uma tecnica bem mais poderosa e rapi- 
da, que aprenderemos neste artigo: e o 
uso da funfao VARPTR como aponta- 
dor de cadeias de caracteres para a tela. 

Essa t^cnica permite armazenar ins- 
tantaneamente 255 caracteres em exibi- 
(jao na tela, em uma cadeia alfanumeri- 
ca is(ring). O limite de 255 caracteres 
(que corresponde a quatro linhas de vi- 
deo) e imposto pelo tamanho miximo 
de um string alfanumerico. Se quiser- 
mos deslocar a tela inteira, portanto, 
basta efetuar a transferencia em "par- 
tes" de 255 bytes de cada vez. 

Para entender como a tecnica funcio- 
na, precisamos conhecer o processo de 
krmazenagem de cadeias alfanum^ricas 
na memoria do TRS-80. Existe um es- 
pago na memoria RAM, criado toda vez 
que o BASIC € inicmlizado. O argumen- 
to do comando CLEIAR define o tama- 
nho desse espa?o (o tamanho predefini- 
do e de cinqiienta bytes). 

Sempre que uma variiivel alfanume- 
rica e definida (ou seja, sempre que nao 
€ uma constante dentro de urn progra- 
ma), o interpretador BASIC cria um par 
de bytes apontadores, que contem o en- 
dereco absoluto inicial da cadeia, na me- 
moria de strings. Nessa loca^ao inicial, 
csti armazenado um byte, que contem 



o comprimento da cadeia em bytes (dal 
a liraitagao intrinseca de 255 bytes por 
cadeia). Nas duas locacdes seguintes, en- 
contram-se os bytes (o menos significa- 
tivo e o mais significativo) do endere^o 
inicial onde estS armazenado o conteu- 
do da cadeia alfanumdrica. 

Seu programa pode ter acesso direto 
a toda essa informa9ao atrav^s da fun- 
(jao VARPTR. Para uma variivel V$, 
por exemplo, teriamos: 

VARPTR(V$) = locafao do apontSdor de VS 
PEEK(VARPTR(V$li) = comprimento de V$ 
PEEK(VARPTR(VS)+ 1) = endere?o de VS 
PEEK(VARPTR(V$) + 2) = endere<;o de VS 

Nada mais ficil, portanto, do que 
transferir 255 bytes da tela para uma va- 
ri^vet alfanum^rica: basta alterar o en- 
dere^o armazenado nas locagdes 
VARPTR(V$)-H e VARPTR(VS) -(- 2 
de modo que passe a apontar para a lo- 
catpao inicial da membria de video que 
queremos transferir. Nenhum byte do 
conteiido da telja precisa ser movido! 

A sub-rotina seguinte coloca o com- 
primento desejado e o enderei;o inicial 
de video no bloco de apontadores de 
uma variivel V$: 

1000 'SUBROTINA UTHANSF 

1010 V9-" 'iPOKE VARPTR {U5 ) ,C» 

1020 POKE UARPTR(VS)+i. Vl-INT 

(V»/256)*256 

1030 POKE VAnPTa(U33+2. INT(Ut 

/256)+60 

1040 RETURN 

A linha 1010 define V$ e armazena 
no primeiro enderego do bloco de apon- 
tadores o niimero de bytes de compri- 
mento (a variavel inteira C%). 

As linhas 1020 e 1030 tratam de ar- 
mazenar no bloco de apontadores, res- 
pectivamente, o byte mais significativo 
e byte menos significativo do endere- 
?o desejado de inicio no video (a varia- 
vel inteira V^o). 

Observe que as vaiiiveis C% e V% 
estao definidas como inteiras. Para usar 
a sub-rotina, deve-se colocar em Wo o 
enderego da posifao de inicio na tela (0 
a 1023), e, em C%, o mimero de bytes 
a se transferir (0 a 255). Ao retornar da 
sub-rotina, VS conterd os caracteres que 
estavam armazenados na tela, da posi- 
cao V% a V%-i-C%. 



APIICACOES 



Essa rotina, que chamaremos de 
VTRANSF, possui numerosas aplica- 
goes. Eis aqui algumas delas; 

• copiar o conteiido de uma tela de vi- 
deo na impressora; 

• armazenar o conteudo de virias telas 
de video na memdria; 

• armazenar as telas em disco; 

• realizar animafoes grifjcas, peta su- 
perposicao rapida de porcdes de teias de 
video previamente armazenadas em 
memdria; 

• montar videos com vdrias "janelas" 
superpostas, independentes. 

Nos prdximos artigos desta s^rie, tra- 
taremos em detalhe das aplica?6es da ro- 
tina VTRANSF. 



COMO IIVIPRIMIR A TELA 



O programa que se segue e um pri- 
meiro exemplo de utilizagao da sub- 
rotina VTRANSF. Ele imprime o con- 
teiido corrente da tela em uma impres- 
sora, linha por linha: 

10 CLEAR 500 

20 C*-64 

30 FOR Vt-0 TO 960 STEP 64 

40 GOSUB 1000 : LPRINT VS 

50 NEXT Vt 

60 END 

O programa funciona da seguinte 
maneira: a linha 10 reserva quinhentos 
bytes de memdria para strings. A linha 
20 define o comprimento C% da varia- 
vel alfa que recebera c6pia de uma linha 
de video. A linha 30 Jnicia um la<;o, que 
vai ate a linha 50, percorrendo os ende- 
refos de video (V%) desde a primeira ate 
a ultima linha, de 64 em 64 posii;6es. Fi- 
natmente, a linha 40 chama nossa sub- 
rotina VTRANSF (que devera ser colo- 
cada logo ap6s a linha 60) e imprime a 
variavel V$, que recebeu a c6pia do 
video. 

Se sua impressora nSo for do tipo 
grifico, use esse programa apenas para 
copiar telas de texto, pois ele nao con- 
verte os caracteres grAficos (129 a 191) 
que encontra na tela. 



1^5 PROGRAMACAODSJOGOS Sl 



■III 



O JOGO A RAPOSA 
vANSm (3) 





As rotinas deste artigo permitem ao 
computador nio s6 jogar p«la 
raposa e pelos gansos como tamb^m 
estudar os pr6ximos movimentos 
para melhorar o nivel da parttda. 



Terceira e ultima parte do jogOj4 Ra- 
posa e OS Gansos, este artigo apresenta 
rotinas que possibiiitam ao computador 
jogar tatito pela raposa quanto peios 
gansos. Na verdade, ele pode ser colo- 
cado a jogar sozinho ou siraplesmente 
pode nao jogar, se voce tiver um par- 
ceiro humano; neste caso, o computa- 
dor serviri apenas corao tabuleiro e for- 
necedor de pe?as. 



210 LET P-BtGll))+B(0(2))+B«3( 

3))+B[0{4JJ 

220 LET X-F: IF B<Bt32) THEN 

LET P-P'BX: LET X-33-F 

230 LET P-P«B(X): RETUBN 

250 LET F-FN A(ABS P)-30: LET 

B-P/B(F): IF B<0 THEN LET B-B 

■^BX' LCT F"33~F 

260 FOB A-1 TO 4: LET a(A)-FN 

A(B)+1: LET B-B-B(a(A)): NEXT 

A: RETURN 

Q 

210 P-BtG(l))+B(G(2))+B{G(3)}+B 

(G(4)) 

220 X-P:IF P<B{31) THEN P-P-BX: 

X-31-F 

2J0 P-P*B(X) : RETURN 

250 F-FNA{ABS{P) )-31:B-P/B(F) :1 

F B<0 THEN B=B+BX:F-31-F 

260 FOR A-1 TO 4 :G (A) -FNACB) :B" 

B-B CG (A) ) : NEXT : RETURN 



m 



210 P = BCG(1))+B(G(2) J+BtaC3))■^B 

(G{4)) 

220 X-F: IF P<B(31) THEN P-P-BX: 

X-31-F 

230 P-P»B(X) iBETURN 

250 F=FNA(ABS(P))-31rB=P/B(r) :I 

F B<0 THEN B-B+BX:F-31-F 

260 FOR A-1 TO 4 ; G (A) =FNA (B) :B- 

B-B(0(A) ) : NEXT; RETURN 



HIE] 



210 P - BtG(l)) + B{G(2)) + S(G 

(3)) + B(G(4)) 

250 X - F: IF P < B{31) THEN P 

- P - BX:X - 31 - F 

230 p.- P * B(X} : BETUBN 

250 F - FN At ABS (P) ) - 31 :B 

- P / B(F) : IF B < THEN B-B 
+ BX:F - 31 - F 

260 FOB A » 1 TO 4:GtA) - FN 
A(B) :B - 8 - B(GCA)): NEXT : HE 
TURN 

Essas sao duas das mais importantes 
rotinas do programa. A retina da linha 
210 ^ linha 230 avalia a posipao em jo- 
go e a transforma em um numero. De 
modo inverse, quando o computador ti- 
ver es£oihido a melhor jogada, tern que 
converter um numero em um movimen- 
to. As linhas 250 a 260 transformam o 
vaior numdrico em um con junto de va- 



lores necessirios para posicionar as pe- 
?as. Essas sub-rotinas sio ctiamadas 
com muita freqtiencJa e, por isso, foram 
colocadas logo no ini'cio do programa. 



MOVIMENTO DA RAPOSA 



1010 GOSUB 210 

1020 OOaUB 310: GOSUB 250 

1030 IF F>28 THEN PRINT AT 21, 

Oi''A RAPOSA VENCEU 

': GOTO 1410 
1032 GOSUB 410: IF V-H THEN PR' 



1 





INT "OS GANSOS UENCEHAM 

": GOTO 1410 
1040 IF PF THEN GOTO 1110 
1050 INPUT "MOVER RAPOSA PAHA " 
!B: IF B— 1 THEN GOSUB 2710: G 
OTO 1030 
1055 GOSUB 4000 

1060 FOR A=l TO X(F): LET X=M CA 
.F): IF X=B THEN IF NOT (FN X( 
X) ) THEN LET F=B : GOSUB 
OTO 1200 

1070 NEXT A: PRINT AT 21, 
NAO E LEGAL 

GOTO 1050 
1110 LET L=SF: LET M=SF: 
M)=E*K: IF M>4 THEN DIM 
} : DIM S{HF+3) 
1112 GOSUB 1120: GOTO 1200 



210: G 



,0:"ISS 



LET V< 
K(HF+3 



V 



iiiiiiir-^«r-^* 



PROGRAMACAO DEJOGOS 



j^m-qmilllllll' 



COMQ JOGAR MPS NIVEIS 
MAIS BAIXOS 



A RQTINA DE MOVIMENTA QAQ 
DA RAPOSA 



COMO MOVER OS GANSOS 



COMQ JOGAR NQ S NIVEIS 

MAIS ALTOS 

ALGORITMO AUA-B ETA 

TABELAS DE POS ICOES 



PARA UM JOGO MAIS RAPIDO 



K/^ 



k^ 



H20 IF L-1 THEN GOTO 410 
1122 IF L<M-2 THEN G03UB 1610: 

IF VOO THEN BETIJHN 
1.130 LET L = L-i: LET V(L)-H*L: L 
ET ACL)-X(F) : LET F(L}-F 
1140 LET F=MCA(L> .FtD) 
1]50 IF FK XCF}=0 THEN GOSUB 1 
320: TF V>U(L) THEN LET VtL)-V' 
: LET P(L)-F: TF V>V(L+1) THEN 

LET l-rCL) : LET L-L+1 : RETURN 
U60 [.ET A{l.)-Aa)-1: IF A(L)>0 

THt:t>i GOTO ]]4n 
1170 LET y=V(L}: LET F-F(L): LE 
T L-=L+1: IF L=M THEN LET F-P<M 
-U; GOSUB 210: BETIJRN 
1L?2 IF L<M-2 THEN GOSUB 1510: 

RETURN 
neO RETURN 








1010 SCREEN l.OiQOSUB 210:Q0TO 
1030 

1020 XX=FNXX(G) :yy-FNYY{G) :PUT( 
XX,Yy)-(XX+19,YY+19) ,SQ,PSET:XX 
-FNXX (G f CJ ) : YY-FNYY (G (C) ) +5 : PUT 
(XX,Yy)-CXX+19,YY+9) .GS.PSET 
1030 CLS:IF F>27 THEN PLAY V$ : P 
RINT «7,"A RAPOSA VENC£U':GOTO 
1410 

1032 GOSUB 410: IF y-H THEN PLAY 
V9; PRINT 66, "OS GANSOS VENCERA 
H':GOT0 1410 

1040 LINE{180,0}-(255,191) ,PRES 
ET.BFtIF PF THEN DRAU'BKIBO , 50C 
4'+THS:G0T0 1110 



1050 DaAM"BM180,80C4"+MW$;XX-FN 
XX (F) : YY-FNYY (F) :GOSUB 1810;B-4 
*INT{YY/20) ;B-FNCM(B) 
1055 IF B— 1 THEN PLAY V3: PRINT 
€6, 'OS GANSOS VENCERAM' :GOT0 14 
10 

1060 FOB A-0 TO X{F) :X-M(A,F> :I 
F X-B AND NOT FNX(X) THEN A«X(F 
) :XX-FNXX(F) : YY-FNYY (F) iPUTCXX, 
YY)-(XX+19.YY+19) , SQ.PSET: F-B:G 
OSUB 210: NEXT: GOTO 1200 
1070 NEXT: GOSUB 5000: GOTO 1040 
1110 L-SF:M-SF:V(M)-E*M:IF M>4 
THEN FOR A-0 TO BF :B CA) -0 : NEXT 
1112 LF=F:GOSUB 1120:XX-FNXX (LF 
) : YY-FNYY (LF) : PUT tXX . YY) - (XX+19 
,YY+19) ,SQ,PSET;GOTO 1200 
11.20 IF L-1 THEN 410 
1122 IF L<M-2 GOSUB 1610: IF U<> 
THEN RETURN 

1130 L-L-l:VtL)-H*L:A(t)-X(F} :F 
(D-F 

1140 F°M{A(L},F(L)) 
1150 IF FMX(F)-0 GOSUB 1320: IF 
U>y(L) THEN V(L)-y:P(L)-F:IF V> 
U(L+1) THEN F'^FtL) :L-L+1: RETURN 
1160 A(L)-A(L)-1:IF A(L)>-0 THE 
N 1140 

1170 V-V(L) :F-FCL) :L-L+1:IF L-M 
THEN F-P(M-1> : GOSUB 210:RETURN 
1172 IF LCM-2 GOSUB 1510 
1180 RETURN 



ffk 



1010 GOSUB 210:GOTO 1030 
1020 GS(FNZZ(G) .D-'GtC) :XX-FNXX 
(G(C)) : YY-FNYY {G(C}) : PUT SPRITE 
GS{FNZZ(G(C) ) ,0) . (XX.YY) ,15 



1030 IF F>27 THEN PLAYVS;F0RX-1 
TO5O0:NEXT:SCH.EEN0;PRINT''A BAPO 
SA yENCEU!":GOT0 1410 
103 2 GOSUB 410 :TF U=H THEN PLAY 
y$ : FORK = lTO50I) : NEXT : SCREENO : PRI 
NT" OS GANSOS UENCEHAM! " :aOTO 14 
10 

1040 LINE{188,0)- (255,191) ,11.8 
F:tF PF THEN PRESET nfiS,50):PR 
lNT|i,"Pens^ndo".-GOTO 1110 
1050 PRESET (188,80) rPRTNT*!,"? 
ara ?" :XX=FNXX{F) : YY-FNYY (F) :G0 
SUB 1310:B-4«INTC(YY-2j/20) : B=F 
NCN(B) 

1055 IF B=-l THEN PLAYVS : FORK=i 
T0500: NEXT: SCREENO :PRINT''OS CAN 
SOS UENCEHAM! " :G0T0 1410 
1060 FOR A=0 TO X(F) :X»M{A. F) : I 
F X-B AND NOT FNX f XI THEN A=X(F 
):F=a: GOSUB 210 : NEXT iGOTO 1200 
1070 NEXT:GOSUB 5000:GOTO 1040 
1110 L-SF:M=SF:VtM)=E*M'.IF M>4 
THEN FOR A-0 TO HF:It (AJ>«0:NEXT 
1112 LF-F:GOSUB 1120:GOTO 1200 
1120 IF L-1 TH£N 410 
1122 IF L<M-2 THEN GOSUB 1610:1 
F VOO THEN RETURN 
1130 L»L-1:U(L)=H«L:A(L>=X(F) :F 
(L)-F 

1140 F-hKACL) ,F(Ln 
1150 TF FNX(F)=0 THEN GOSUB 132 
0:TF V>V<L) THEN U (L> -V : P (L) -F : 
IF U>V(L+1) THEN F-F (L) :L'L+1 : R 
ETURN 

1160 A(L)=A(L) -1:IF A(L)>^0 THE 
M 1140 

1170 V-V(L) iF=F CD :L«L+1 rIF L-M 
THEN F-P(M-l) :G03UB 210:RETURN 
1172 IF t.<M-2 THEN COSUB 1510 
1180 RETURN 
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1010 GOSUB 210: GOTO 10.30 
lOZO XX - FN XX (G) :yy = FN YY 
(G) : HCOLOR- 0: DRAW OS AT XX + 

7,YY + 5; HCOLOR- 3 : XX - FN X 
XCG(C)):YY - FN YY(G(C)): DRAW 

GS AT XX + 7,YY + 5 
1030 HOME r IF F > 27 THEN PR 
INT V$: HOME ! VTAB 22: PRINT " 
A RAPOSA GANHOU!": GOTO 1410 
1032 GOSUB 410: IF V - H THEN 

PRINT VS: HOME ■ UTAB 22: PHIN 
T 'OS GANSOS GANHAHAM!": GOTO 1 
410 

1040 HOME : VTAB 22: TF PF THE 
N PRINT "PENSANDO. . ."; : GOTO 1 
110 

1050 PRINT "MOVE PAHA ONDE? " i 
:XX - FN XXtF) : YY - FN YYCF) : 

GOSUB 1810:0 - 4 * INT, CYY / 
20) :B = FN CN{B) 
1055 IF B = - I THEN PRINT V 
3: HOME : UTAB 22: PRINT 'OS GA 
NSOS UENCEBAM!": GOTO 1410 
1060 FOR A - TO X(F):X = M(A 
,F) : IF X - B AND NOT FN X(X) 

THEN A - X(F) :XX - FN XX(F) :Y 
Y - FN YY{F) : HCOLOB- 0: DRAW 
FX AT XX + 2,Yy + 8:F - S: HCOL 
OH- 3: GOSUB 210: NEXT : GOTO I 
200 

1070 NEXT ; GOSUB 5000: GOTO 1 
040 

mo L " SF:M - SF:U(M) = E * M 
: TF M > 4 THEN FOR A -^ TO H 
F:R(A) - 0: NEXT 

1112 LF = F: GOSUB 1120 :XX = F 
N XX(LF):y¥ = FN YYtLF): HCOLO 
H» 0: DRAW FX AT XX + 2,Y¥ ■•- 6: 

HCOLOR" 3; GOTO 1200 
1120 IF L - 1 THEN 410 
1122 IF L < M - 2 THEN GOSUB 
1610: IF V < > THEN RETURN 

1130 L - L - 1:VCL) - H * L;AtL 
) - XtF) :FtL) - F 
' 1140 F - M(A{L) ,F(L)) 

1150 IF FN XtF) - 0' THEN GOS 
, UB 1320; IF V > V(L) THEN VCD 
- V:P(L) - Fs IF V > UCL + 1) T 



HEN F - FCDiL - L + 1; RETURN 
1160 A(L) = A(L) - 1: IF A(L) > 

- THEN 114 
1170 U - U(L):F - F(L):L - L + 
1: IF L - H THEN F ■ PCM " 1) : 
GOSUB 210; RETURN 
li;2 IF L < M - 2 THEN GOSUB 
1510 
1180 EETUPM 

As linhas 1020 a 1 180 manipulam os 
movimentos da raposa, A sub-rotina 
que desenha o tabuleiro 6 usada para 
mostrar o posicionamento atual das pe- 
5as. Em seguida, verifica-se na linha 
1030 se a raposa ganhou. Feito isso, a 
rotina comprova na linha 1032 se hi pe- 
lo menos urn movimento legal para a ra- 
posa (caso contririo a vitoria caberi aos 
gansos). 

Se o jogador estiver controlando a ra- 
posa. as linhas 1050 a 1070 receberao a 
jogada e verificarao sua validade, Se, ao 
contrdrio, quem estiver controlando a 
raposa for o computador, as Linhas 1 1 10 
a 1 112 decidirao pelo movimento, O nii- 
mero de iances que esta sendo analisa- 
do, M, e o lance que i analisado no mo- 
mento, L, sao definidos na linha 1110. 
As linhas 1120 a 1180 avaliam qual a 
melhor jogada. 

Quatro matrizes sao usadas nessa ro- 
tina: A contem o niimero de movimen- 
tos a serem analisados; V, o melhor re- 
suliado ate o momento; P, a jogada que 
provoca tal resultado, e F indica a posi- 
q&o previa da raposa. 



COMO MOVER OS GANSOS 



500 LET U-0: FOB C=l TO 4: LET' 
G=G(C): FOR A-1 TO 2CG): LET X 
-MCA.G): IF XOF THEN IF NOT 
FN X(X) THEN RETURN 



502 NEXT A: NEXT C: LET V-1 ; 

RETURN 
1200 GOSUB 310: GOSUB 250 
1202 IF F>28 THEN PRINT AT 21. 
0;"A RAPOSA VENCEtJ 

": GOTO 1410 
1204 GOSUB 500: IF V THEN PBIN 
T AT 2 1,0; "A RAPOEJA VEINCEU 

": GOTO 1410 
1210 IF 9G THEN GOTO 131,0 
1220 INPUT "QUE GANSO QUER MOVE 
R ?";G: TF G— 1 THEN GOJ!UH 271 
: GOTO ,120 2 
1225 GOSUB 4000 

1230 LET C-FN 2 CG) : IF C:=0 THEN 
PRINT AT 21.0;"NAO HA GANSO E 
M "iG;"" : GOTO 1220 
1240 INPUT "PARA ONDE ";I: IF I 
— l THEN GOSUB 27T0: GOTO 1202 
1250 IF FN XU:) THEN PRINT AT 
21,0|"AI JA TEM UM GANSO ! 

-: GOTO 1220 
1260 IF T-F THEN PRINT AT 21.0 
;"AI JA TEM UMA RAPOSA 



": GOTO 1220 
1270 FOR A=l TO Z(G): IF MCA.G) 
= 1 THEN LF.T G(C:!-I: GOTO 1010 
1280 NEXT A: PRINT AT 21,0;"TSS 
E I LEGAL 

GOTO 1220 
1310 LET L = SG: LET M=SG: LET >J { 
M)=H*M: IF M>4 THEN DIM R(HF+3 
) : DIM S(HF+3) 
1312 GOSUB 13Z0: GOTO 1020 
1320 IF L-1 THEN GOTO SIO 
1322 IF L<M-2 THEN GOSUB 1610: 

IF VOO THEN RETURN 
1324 LET L=L-1: LET V<L)=E*L: L 
ET C = l 
1330 LET GCL)=C: LET FCLJ=G(C): 

LET A{L)=1: IF A(L)>ZCGtC)) TH 
EN GOTO 1362 

1340 LET B-M(A(L) .F{L>) : LET X= 
FN X(B): LET GCO)=B: TF X OR B= 
F THEN GOTO 1 360 
1350 GOSUB 1120: LET C=C(L}: TF 

U<UCL) THEN LET VCD^V: LET P 
(L)=G(C)+C*32 
1355 IF y<U(L) THEN LET GCC)-F 



i 




1* 



m 
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(L) : LET L"L+l: BETURN 

1360 LET A(L}-A(L)+1: ir ACL)<- 

Z<FCL)) THEN GOTO 1340 

1362 LET G(C)-F(L): LET C-C+1 : 

IF C<5 THEN GOTO 1330 

1370 LET y-VCL): LET L-L+1 : IP 

L-M THEN LET C-INT tP(L-l)/32) 

: LET G(C)-P(L-1)-C«32: G03UB 2 

10 * RETURN 

1372 IF L<M-2 THEN GOSUB 1510; 

HETURN 
1380 EETUSN 

Q 

500 V— 1:F0R C-1 TO 4:G-G(C):IF 

ZCOXO THEN NEXT: RETURN 
502 FOR A-0 TO Z (G) : X-M(A,G) : U- 
U AND(FNXCX) OB X-F) :NEXT A.C:R 
ETURN 

1200 GOSUB 250:XX-FNXX(F) :YY-FN 
YY (F> +5 : PUT CXX , YY) - (XX+19 , YY+B) 
.FX.PSET 




1202 IF F>2 7 THEN PLAY V$: PRINT 
66, "A RAPOSA yENCEU" -GOTO 1410 
1204 GOSUB 500: IF V THEN PLAY V 
3:PRINT "A RAPOSA VENCEU":GOTO 
1410 

1210 LINE(180,0)-(255,191) , PRES 
ET,BF:IF PG THEN DRAWBM180 ,50C 
4"+TH$:GOT0 1310 

1220 XX-FNXX(G(1)) :YY-FNYY{G(1) 
) :DRAW"BM180,80C2"+WG5:GOSOB 18 

10 

1225 G-4"INT(YY/20) :G-FNCN(GJ 

1230 C-FN2(G):IF C-0 GOSUB 5000 

:G0TO 1210 

1240 DRAWBMlBO.llOCa'+MMSrOOSU 

B 1B10:I»4*INT{YY/20) :I-FNCN(Ij 

1245 IF I-l THEN PLAY V9: PRINT 

«7,"A RAPOSA UEKCEU":QOTO 1410 

1250 IF FNX(I) GOSUB S000:GOT0 

1210 

1260 IF I- 



F GOSUB 5000: GOTO 121 



X+19 , Yy+19) , SQ , P3ET ; {C) -I : XX-F 

NXX{I) :YY-FNYY(I) :PUT{XX, YY+5) - 

(XX+19, YY+14) .Ga,PSET:A*Z{a) :NE 

XT: GOTO 1010 

1280 NEXT;GOSUB 5000:QOTO 1210 

1310 L-3a:M-Sa:UtM)-H*M:IF M>4 

THEN FOR A-0 TO HF :R{A) -0 : NEXT 

1312 GOSUB 1320: GOTO 1020 

1320 IF L-1 THEN 510 

1322 IF L<M-2 GOSUB 1610 : IF V<> 

THEN RETURN 

1324 L-L-1:U(L)-E*L:C-1 

1330 C(L)-C;F(L)-G(C) :ACL)-0:IF 

A(L)>Z(G{C)) THEN 1362 
1340 B-M{A(L) ,F<L)) :X-FNXCB) :G- 
G(C) ;G(C3-B:tf X OR B-F GOTO 13 
60 

1350 GOSUB 1120:C-C(I.) :IF V<V{L 
) THEN y<L)-VTPCL)-0(C)+C*32:IF 

V<U{L+1) THEN O-G(C) :G{C)-F(L) 
: L-L+1: RETURN 

1360 A(L}-A{L)+1:IF A(L)<-Z(FtL 
)) THEN 1340 

1362 G-Q(C) :G{C)-F(L) :C»C+1:IF 
C<5 THEN 1330 

1370 V-V(L) :L-L+1:IF L-M THEN C 
-INT(PtL-l)/32) !G-0{C) :a{C)-P{L 
-1) AND 31:0OSUB 210:RETUBN 
1372 IF LCM-2 GOSUB 1510 
1380 RETURN 



fm 



500 V=-1:F0R C-1 TO 4:G»GtC):IF 

Z(G)<:0 THEN NEXT: RETURN 
502 FOR A=0 TO Z CG) :X-M (A,G) :U- 
V AN[> tFNX{X) OR X-F) : NEXT : NEXT 
: RETURN 

1200 GOSUB 25n:XX»FNXX(F) :YY-FN 
YY(F):PUT SPRITE FX,(XX.YY),6 
1202 IF F>27 THEN PLAYVS : FORK-1 
TO500:NEXT:SCREEN0:PRINT"A RAPO 
SA UENCEU!";G0TO 1410 
1204 GOSUB 500: IF V THEN PLAYVS 
: FORK=. ITOSOOr NEXT: SCR EENO: PRINT 
"A RAPOSA VENCEU!":GOT0 1410 
1210 LINE (18e,0)-(255,191) ,11. 
BF:IF PG THEN PRESET (168,50) :P 
BINT#l,"Pen8an(}o":G0TO 1310 



1220 XX'-FNXX(G(1)) : YY-FNYY (G (1) 
):PRESET (IBS, 80) : PRINTH . "Oual 

?"; GOSUB 1810 
1225 G-4*INTl(YY-2)/20) !G-FNCN( 
G) 
1230 C-FNZ(G):IF C-0 THEN GOSUB 

50nO:GOTO 1210 
1240 LINE (18B,0)-C255.191) .11, 
BF:PRESET (188,80) :PHINT*1 , "Par 
a ?":GOSUB 1810:I-4*INT{{YY-2)/ 
20) :I-FMCN(I3 

1245 IF T-1 THEN PLAYVS : FOBK-IT 
0500:NEXT:SCREENO:PR1NT"A RAPOS 
A VENCEUl " :G0T0 1410 
1250 IF FNXCD THEN GOSUB 5000: 
GOTO 1210 

1260 IF I=F THEN GOSUB 5000: GOT 
1210 

1265 GS(FNZZtG) ,1)-I 
1270 FOR A=-l TO Z (G) : IF A>=0 T 
HEN IF M{A.G1-I THEN XX-FNXX(T) 
lYY-FNYYd) ;PUT SPRITE GS(FNZ2( 
I) ,0) , (XX. YY) . 15:A-Z(G) :G(C)-I: 
NEXT:G0TO 1010 

1280 NEXTiGOSUB 5000:GOTO 1210 
1310 L=SG:M-SG:V(M)=H«M:IF M>4 
THEN FOR A-0 TO HF : R (A) -0 :NEXT 
1312 GOSUB 1320: GOTO 1020 
1320 IF L-1 THEN 510 
1322 IF L<M-2 THEN GOSUB 1610:1 
F UOO THEN RETURN 
1324 L-L-1:V(L)-E*L:C=1 
1330 C{L)=C:FtL)=G(C3 :A(L)"=0:IF 

A(L)>Z{G(C}) THEN 1362 
1340 B=M{A(L),F(L]) iX=FNX(B) :G= 
G(C) :GtC)-B:IF X OR B-F THEN 13 
60 

1350 GOSUB 1120iC-C(L} :IF y<V{L 
) THEN V(L)-V:P(L)-G(C)+C*32rlF 

V<V(L+1) THEN G-G(C) :G(C)-F{L) 
: L-L+1: RETURN 

1360 A(L)-A(L)+1:IF A(L)<:-2{F(L 
)) THEN 1340 

1362 G=G(C) :GCC)-F(LJ ;G-C+1:IF 
C<5 THEN 1330 

1370 V-V(L) ; L-L+1: IF L-M THEN C 
=iINT(P(L-l)/32) :G-G(C) :G(C)-P(L 
-1JAND31 : GOSUB 210:RETUBN 
1372 IF L<M-2 THEN GOSUB 1510 
1380 RETURN 



i 



1270 FOB A— 1 TO Z(G):IF A>-0 T 
BEN IF M(A.G)-I THEN XX-FNXX(G{ 
C) ) : YY-FNYY (G (C) ) : PUT (XX . Y Y) - {X 




DEI 



C " 1 TO A:G 
THEN NEXT 



500 V - 1: FOR 

(C) : IF G(C) < 

ETUHN 

502 FOR A - TO Z(G) :X - MtA, 

G) :V - V AND { FN X(X) OR X = F 

) : NEXT : NEXT : RETURN 



1200 GOSUB 250:XX - FN XX(F)r 
YY - FN yY(F) : DRAW FX AT XX + 

2,YY + e 

1202 IF F > 27 THEN PRINT VS ; 

HOME : VTAB 22: PRINT 'A RAPOS 
A VENCEU! " : GOTO 1410 
1204 GOSUB 500: IF V THEN PRI 
NT U3: HOME ; VTAB 22: PRINT "A 

RAPOSA VENCEU!": GOTO 1410 
1210 HOME : VTAB 22: IF PC THE 
N PRINT -PENSANDO. . . " ! ; GOTO 1 
310 
1220 XX - FN XX(G(l))lYY - FN 

YYtG(l)): PRINT "MOVE QUAL GAN 
SO?*: GOSUB 1810 
1225 G - 4 * INT {YY / 20) :G - 

FN CN(G) 
1230 C - FN ZCG) : IF C - THE 
N GOSUB 5000; GOTO 1210 
1240 HOME : VTAfi 22: PRINT "MO 
VE PARA ONDE? ": GOSUB 1810:1 - 

4 * INT (YY / 20) :I - FN CN ( 
I) 

1245 IF I - 1 THEN PRINT V3; 
HOME : VTAB 22: PRINT "A RAPOSA 

VENCEUJ": GOTO 1410 
1250 IF FN X(I) THEN GOSUB 5 





GOTO 1 

" H « M 
TO H 



000: GOTO 1210 

1270 FOR A « - 1 TO Z{G>: IF 
A > - [] THEN IF M(A,G) - I TH 
EN XX = FN XX{C(C)};YY - FN Y 
Y{0(C)): HCOLOR- 0; DRAW GS AT 
XX + 7,YY + 5:C(C) - I:XX - FN 

XX(1):YY = FN YYU): BCOLOR- 
3: DRAW GS AT XX + 7 , YY + 5 : A - 

Z(0) : NEXT ; GOTO 1010 
1280 NEXT ; GOSUB 5000 
210 

1310 L - 3G:M - SG:V{M) 
i IF M > 4 THEN FOR A 
F;R(A) - 0: NEXT 
1312 GOSUB 1320: GOTO 1020 
1320 IF L ■ 1 THEN 510 
1322 IF L < M - 2 THEN GOSUB 
1610: IF V < > THEN RETURN 
1324 L - L - 1:V(L) - E « L:C - 

1 
1330 C(L) - C:F(L) - G{C):ACL) 
- 0: IF A{L) > Z<GCC)) THEN 136 
2 

1340 B = M(AtL).F(L)):X - FN X 
OJtG - G(C3:G(C) « B: IF X OR 
B - F THEN 1360 
1350 GOSUB 1120;C » C(L): IF V 

< V(L) THEN UCL) - V:P(LJ - GC 
C) + C * 32; IF V < VCL + 1) TH 
EN G - G(C) :G<C) - F(L):t. - L + 

1: RETURN 
1360 A(L) = A{L) + 1: IF A{L) < 

» ZtF(L)) THEN 1340 
1362 G = G(C):Q(C) = F{L);C - C 

+1: IF C < 5 THEN 1330 
1370 V - Vd,) :L - L + 1: IF L = 

M THEN C - INT {P<L - 1) / 32 
) :G = G(C):MD - 32:0(0 - FN H 
D(P(L - 1)): GOSUB 210: RETURN 



1372 IF L < M 

1510 

1380 RETURN 



2 THEN GOSUB 



A rotina que vai da linha 1200 k li- 
nha 1380 € responsdvel pela manipula- 
?ao dos gansos. Uma parte deb — li- 
nhas 1220 a 1290 — 6 utilizada quando 
o jogador controla os gansos. Quando 
esse contToie cabe ao microcomputador, 
as linhas 1320 a 1380 encarregam-se da 
manipulagao. 



MELHORES JOGADAS 



410 LET V-H; FOR A-X{F) TO 1 
STEP -1: LET X-MtA,F): IF FN X 
(X) THEN NEXT A: LET L-1 : 
RETURN 

LET F-X: GOSUB 
LET F-B: LET L-1 



FOR C-1 TO 4: LET 
-B(G)>V THEN GOTO 



420 LET B-F; 
210: LET V-P : 
: RETURN 
510 LET V-E; 
G-G{C) : IF 

530 
520 FOR A-1 TO 2(0): LET X«M{A 
.G) : IF FN X{X) OH (X-FJ THEN 
NEXT A: GOTO 530 
52B LET V-B(X)-B(a): LET D-C : 
LET B-X 

530 NEXT C: LET G»G (D) : LET Gt 
DJ-B: G03UB 210: LET V-P: LET 
a{D)-G: RETURN 

Q 

410 V-H: FOB A-X(F)T0 STEP -1: 
X-M(A,F):IF FNX(X)<0 THEN NEXT: 
L-1: RETURN 

420 B-F:F-X:GOSUB 210;V-P : F-B:L 
-l:A-0: NEXT: RETURN 
510 V-E: FOR C<-1 TO 4:0-G{C);IF 
-BCG)>V THEN 530 
520 FOR A-0 TO Z (G) : X-M(A,G) : IF 
FNX(X) OR X-F THEN NEXT:G0TO 5 
30 

528 V-B(X)-B(0) :r>-C:B-X 
530 NEXT:0-G(D) rOtD)-B:G08UB 21 
0:V-P:G{D)-G:IF SG-l THEN a(D)- 
B:C-D 
540 RETURN 



m 



410 V-H: FOR A-X(F) TO STEP-!:, 

X=M(A,F]:IF FNX(X)<0 THEN NEXT: 

L-1: RETURN 

420 B-F;F»X:GOSUB 210 :V-P : F-B:L 

=1:A=0:NEXT:RETURN 



520 FOB: A-0 TO Z{G) :X-M (A,G) : IF 
FNXtX) OR X=F THEN NEXT: GOTO 5 
30 

528 y-B(X}-B(G) :D-C:B-X 
530 NEXT:G»G(D) :G(D)-B:GOSUB 21 
0:V-P:G(D}~G:IF SG-l THEN G{D)- 
BiC-D 
540 RETURN 



BDISl 

410 V - H: 

EP - IrX 

< THEN 



FOB A - XCF) TO ST 
■ M(A,F) : IF FN X(X) 
NEXT :t, - 1: RETURN 



V sao determinadas da forma jA descri- 
ta. Nos dois casos, a instrucao GOSUB 
210 escolhe o melhor movimento entre 
OS que sHo avaliados. 



A TABELA DE POSICOES 



1510 GOSUB 2.10: LET C»P 

1520 LET C-C-INT { (C/HF+C) -C) *H 

F: IF C<Q OH O-HF THEN GOTO 1 




1660 V»-S (A) * (R (A> =P1 ! A-C+C : NEX 

T: RETURN 

1810 SCREEN l,0:PUT(XX,Vlf)-CXX + 

19, YV+19) ,8Q,N0T:F0R Z»l TO 100 

:NEXT 

1820 PUT(XX,lflf)-(XX+19,VY+19J ,S 

Q.NOT 

1830 K$-INKEYS;IF KS-""" AND YY 

>e AND XX>8 THEN YY-Yy-20 :XX=XX 

-20: GOTO 1810 

1840 IF K$-CHRSC10) AND yY<129 

AND XX<129 THEN YY-YY+ZO : XX'XX^^ 

20: GOTO 1810 

1850 IF K5-CHHS(8) AND XX>26 TH 

EN XX-XX-40:GOTO 1810 

1B60 IF KS=CHRSC9) AND XX<128 T 

HEN XX-XX+40;GOTO 1810 

1870 IF KS-CHR3(13) THEN RETURN 

1875 IF K3-''Q'' THEN YY-0:XX--12 

; RETURN 

1880 GOTO 1810 



Fh^ 



"1510 GOSUB 210;C-P 
1520 C-C-INT ( (C/HF+C) -C)*HF: IF 
C<0 OR O-HF THEN 1520 
1550 FOB A-C TO C+C:TF R{A><>n 
AND R{A)<>P THEN NEXT: RETURN 
1560 R{A)-P:S(A)"U:A-C+C:NEXT!R 
ETURN 

1610 GOSUB 210:C-P 
1620 C-C-INT((a/HF+C)-C)*HF:IF 
C<0 OR O-HF THEN 1620 
165 FOR A-C TO C+C:IF R(A)O0 



420 B - F:F - X: GOSUB 210 tV - 

P:F - B:L - 1:A - 0: NEXT r RET 
URN 



510 V = E: FOR C«1T0 4:G=G 
(C) : IF - B(G) > U THEN 530 
520 FOR A - TO 2(G) :X - M(A, 
G) • IF FN X(X) OR X - F THEN 
NEXT : GOTO 530 
S28 V - B(X) - BCG) :D = C:B = X 



530 


NEXT :G 


- GtD} 


•G(D) 


- B: G 


OSUB 


210:V - 


P:GCD) 


= G: 


IF SG 


■ 1 


THEN G(D) 


- B:C 


= D: 




540 


RETURN 









Essas sub-rotinas sao usadas apenas 
quando o computador estS nos meno- 
res niveis de dificuldade e analisajn ape- 
nas proximo movimento. 

As linhas 410 e 420 analisam todos 
OS movimentos possiveis para a raposa, 
usando o mapa da matriz W, montada 
a partir da linha 2110. A sub-rotina de- 
volve um valor P (configura?ao ap6s a 
melhor jogada) e um valor V (avaUa^So 
do melhor resultado). 

As linhas 5 10 e 530 funcionam de ma- 
neira similar its anteriores, s6 que se en- 
carregam dos gansos. As matrizes P e 



520 

1550 FOB A=C:+1 TO C+4 : IF a(A)< 

>0 AND RCA) OP THEN NEXT A: HE 

TURN 

1560 LET BCA)"P: LET S (A) =0 : RE 

TURN 

1610 GOSUB 210: LET C-P 

1620 LET C=C-tNT ( (C/HF+C) -C) *H 

Fr IF C<0 OR C>"HF THEN GOTO 1 

620 

1650 FOR A-C+1 TO C+4: IF R (A)< 

>0 AND H(A)<>P THEN NEXT A: LE 

T V"0: RETURN 

1660 LET V-S(A)*CH(A)-P) : RETUR 

N 

a 

1510 GOSUB 210:C-P 

1520 C-C-INT ( (C/HF+C) -C)*Hr: IF 

C<0 OR O-HF THEN 1520 

1550 FOR A-C TO C+C:IF H(A)<>0 

AND R{A)<>P THEN NEXT: RETURN 

1S60 R(A)-P:S(A)-V:A=C+C:NEXT:B 

ETURN 

1610 GOSUB 210:C-P 

1620 C-C-INT{CC/HF+C)-C)*HF:IF 

C<0 OR C>=HF THEN 1620 

1650 FOR A-C TO C+C : IF a(A)<>0 

AND R{A)<>P THEN NEXT ■ V-O : RETUR 

N 




¥' 



AND R<A)<>P THEN NEXT:V= 
N 

1660 y--S(A)*CR<A)-PJ :A- 
T:HETURN 

1810 LINE tXX,YY-2)-(XX+ 
7) .14.BF:F0B 2=1 TO 100: 
1S20 LINE CKX.Yy-2)-UX + 
7) ,3,BFrF0a 2=1 TO 200:N 
1830 KS-INKEY$:IF K3-CHh 
ND Y5f>lS AND XX>18 THEN 
0:XX-XX-20iGOTO 18] 
1840 If KS=CBn${31) AND 
AND XX<]41 THEN ¥¥=¥¥+20 
20: GOTO 1810 
1B50 IF KS=CHRS(29) AND 
HEN XX-XX-40 :GOTO IBIO 
1860 IF K5-CHHS(28) AND 
THEN XX-XX+40:GOTO iBlO 
1870 IF KS-CHR$(].31 THEN 
1880 GOTO 18] 



0:BETUR' 




C+C:NEX 




iq,Y¥+i 


J Ir- 


WFXT 




19,¥Y+1 




EXT 




3(30) A 




YY=yY-2 




Yy<141 




:XX=XX+ 




XX>.18 T 




XX<138 " 


^ 


RETURN 






aiE] 



1510 GOSUB 210iC - P 

1520 C - C - INT (CC / HF + CJ 

- C) « HFr IF C < OR C > = 
HF THEN 1520 

1550 FOR A-CTOC + C; IFFI( 
A} < > AND n(A) < > P THEN 

NEXT : RETURN 
1560 R(A) =■ P:S(A) = U;A = C + 
C: NEXT ; RETURN 
1610 G03UB 210 :C - P 
1620 C - C - INT ((C / HF + C) 

- C) * HF: IF C < Oa C > - 
HF THEN 1620 

1650 FOR A»CTOC+C: IFR( 




A) < > AND B(A) < > P THEN 

NEXT :V = 0: RETURN 
1660 V - S{A) * (R(A) = P) :A ■= 
C + C : NEXT : RETURN 
1810 XO - XX:YO -> YY 
1820 HCOLOR- 0: GOSUB 1890: HC 
0LOH= 3:X0 - KX : YO = YY : GOSUB 
1890 

1830 GET K$: IF K$ = "A" AND ¥ 
Y > yl + 5 AND XX > XI + 5 THEN 

YY - YY - 20: XX - XX - 20: GOT 
1820 
1840 IF K5 = "Z" AND YY < Y2 - 

38 AND XX < X2 - 38 THEN YY - 
YY + 20:XX =■ XX + 20: GOTO 1820 

1850 IF KS = CHR3 (8) AND XX 
> XI + 21 THEN XX-XX-40: GO 
TO 1820 
1860 IF K3 = CHH3 (21) AND XX 

< X2 - 45 THEN XX = XX + 40 : G 
OTO 1820 

1870 IF KS = CHRS (13) THEN 
HCOLOR" 0: GOSUB 1890: RETURN 
1880 GOTO 1820 
1890 HPLOT XO + 1,Y0 + 1 TO XO 

+ 19, YO +■ 1 TO XO + 19, YO + 18 

TO XO + l.YO + IS TO XO + l.YO 

+ 1: RETURN 

Nos nfveis de maior dificuldade sera 
necessario usar o algoritmo aifa-beta — 
veja o primetro artigo da s6rie (pagina 
872). Na verdade, ele jd foi digitado co- 
mo parte das rotinas de movimenta9ao 
da raposa e dos gansos. 

Antes de utilizd-lo, porem, o progra- 
ma verifica se ele e necessario no mo- 
mento — sera o nivel de dificuldade su- 
ficientemente alto para justificar o seu 
eraprego? 

A rotina das linhas 1110a 1 1 50 cui- 
da da raposa, enquanto a rotina das li- 



nhas 1310 a 1350 dedica-se ao quarteto 
de gansos. 

O algoritmo e aplicado quando se 
executa o ultimo teste IF, no fim das li- 
nhas 1 150 e 1350, depois de V(M) ter si- 
do adeqitadaiTtente definida, de acordo 
com o nivel de dificuldade. 

O algoritmo al fa- beta e mais eficien- 
te quando o computador discrimina 
quais sao os melhores movimentos rea- 
lizados inicialmente — para os gansos, 
quadrado de mimero mais alto de ca- 
da fileira de quatro; para a raposa, o 
quadrado aberto a ela mais prbximo do 
lado dos gansos. 

O algoritmo alfa-beta e usado em 
conjunto com uma tabela construida em 
fungao de movimentos que ja foram 
considerados. Assim, o computador po- 
de se decidir mais rapidameme, quan- 
do se trata de uma jogada j^ estudada. 
Quanto maior for o tamanho da tabela 
que ^ possivel montar no computador, 
mais rapido sera o processamento, 

Iniciaiizada nas linhas 2500, 2750 e 
2800, a tabefa tern seu tamanho ideal de- 
finido por meio de valores tedricos. Ela 
foi dimensionada, no entanto, no limi- 
te da memoria RAM disponivel em ca- 
da microcomputador. 

A tabela e zerada nas linhas 1110 e 
13 10; o conteiido ^ verificado nas linhas 
1122 e 1322 e definido nas linhas 1 172 
e 1372. 

O TRS-Color e o MSX usam um cur- 
sor para indicar as jogadas a serem exe- 
cutadas com as setas. O cursor do Ap- 
ple e movido para a esquerda e para a 
direita com as setas, e para cima e para 
baixo com as letras A e Z. 
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MA^ANA CI ) 



"ENREDO" 



DEFINIQAO DOS GRAFICOS 
FREDDY. AS FLECHAS, 



OS BALOES E A ARANHA 



INICIALIZACAO DO JOGO 



na o monstro. Ajude Freddy a esiourar 
OS baloes, ou de tera um trdgico fim, co- 
mo aJmoco de uma horrenda aranha! 
Temos, assim, um enredo. Com re- 
la^ao aos pontes, eles scrao dados para 
cada balao estourado. Mas, mesmo que 
Freddy consiga interceptar todos os ba-j 
loes, seu problema nao estari resoivido: 
a tortura continuara num nivel de difi- 
culdade ainda raaior com baJoes mais 
rapidos. Se deixar que trSs deles passem, 
a aranha marciana sair^ da gaiola. 



PROGRAMA 



Nosso jogo requer a anima^ao de 
quatro figuras: a aranha, que se movi- 
menta na vertical e na horizontaj; 
Freddy, que se move s6 na vertical; o ba- 
lao, que pode aparecer em qualquer 




Uma enorme e assustadora aranha est^ 
pronta a atacar Freddy. Sem uma boa 
dose de precisao e sangue-frio, ele 
nao escapar^. Mas nao se assuste: tudo 
nao passa de um terrivel pesadelo. 



O jogo A Aranha Marciana sera mon- 
tado em dois artigos. Neste, os desenhos 
sao definidos e o programa inicializado. 
No proximo, o jogo passa a funcionar, 
com a adigao das ultimas rotinas. 



OJOGO 



O ponto inicial para a montagem de 
um jogo e a criagao de algum tipo de en- 
redo, ou mesmo de um personagem em 
torno do qual a agao se desenvolva. 

Neste jogo, nosso personagem i 
Freddy, um limpador de janelas que tem 
um medo doentio de aranhas. Ele pro- 
curou varios especialistas que tentaram, 
em vao, curi-lo da fobia. O problema 
chegou a uma tal gravidade que Freddy 
passou a ter sempre o mesmo pesadelo. 
Nele aparecem uma aranha marciana — 
particularmente grande, faminta e de 
aparencia horrivel — , uma cole^ao de 
baloes, um arco e uma flecha. 

Com freqiiencia. ele acorda banha- 
do em suor, ap6s ter sonhado que esta- 
va em sua escada, tentando desespera- 
damente flechar bal6es que, se atingis- 
sem a gaiola da aranha, acima de sua ca- 
beea, destravariam a porta que aprisio- 



ponto da parte inferior da tela, mas que 
tambem se move na vertical, e a flecha. 
Esta normalmente se move na horizon- 
tal, mas acompanha o movimento ver- 
tical de Freddy, 

As figuras de maior interesse sao a 
aranha e o balSo. Muitas variaveis es- 
tarao associadas a elas, e seri litil arma- 
zena-las em uma matriz unidimensional 
e usar uma constante como referenda. 



Aldm do movimento, precisamos de- 
finir o desenho de todas as diferentes fi- 
guras — animadas ou nSo — que apa- 
recerao na tela. Como nos melhores jo- 
gos de computador, elas devem ser co- 
loridas. Freddy seri momado em um 
bloco grdfico de tres por dois caracte- 
res. Usaremos outros blocos de dois por 
dois caracteres para definir a aranha, 
um balSo inteiro e um balio estourado, 



dois caracteres para o desenho da flecha 
e mais dois para o da escada. Assim, te- 
remos no final cerca de 26 caracteres. 




am 



A primeira parte do programa defi- 
ne OS gr^ficos e iniciatiza o jogo. 



OEFINICAO DOS GRAFICOS 



1000 DIM b(e} : DIM a (7) 

1010 LET xpoB-1: LET ypoB-2: LE 

T t:olour-3: LET pointa-4; LET c 



«ftr 




in 



PROGRAMACAODEJOGOS 3tflHHH||||||||||| 



ount"5! LET naxcount-6 

1020 LET xinc-3: LET yinc-4: LE 

T plcture-7 

1.030 LET de8t-65288 

1040 FOH i-O TO 26*8-1: READ j; 

POKE (30Bt+i, j: NEXT i 
lO&O DATA 16,53.127.255,255.255 

.1060 'data 240,252,254,255,255.2 
55,265,254 

1070 DATA 127,63,63,31.15.7,3,6 
1080 DATA 254,252,252,248,240.2 
24,192.96 

1090 DATA 32,96.255,255,96,32,0 
.0 

UOO DATA 5,10,252,252,10.5.0,0 
]110 DATA 1.64,17.40,16,0.0.161 
1120 DATA 128.2.136,20,8.0,0,13 
3 

1130 DATA 161,0,0.16.50,17,64,1 
1140 DATA 133.0,0.8,20.136,2,12 
6 

1]50 DATA 48,48,48,48,111,111.4 
8,48 

1160 DATA 12.12.12.12,246,246.1 
Z.12 

1170 DATA 7.3] ,49.57,127,U2,2:i 
7. 255 

1180 DATA 224,248.1.40,204,254,1 
4,18 3.255 

1190 DATA 127,59,51,99.115,35,6 
,12 

1200 DATA 254,108.102,51,49,25, 
24,48 

1210 DATA 7. .31. 49. 51, 127. 112, 23 
5,255 

1320 DATA 224,248,140,156,254,1 
4,215,255 

1230 DATA 127,51,50,27,25,50,11 
2,224 

1240 DATA 254,204.108,102,54,22 
,3,6 

1250 DATA IS. 31. 19, 55, 55, 63, 63, 
15 

1260 DATA 240,24 8.248,252,25 2,2 
52 252 240 

1270 DATA 251,219,139,219.219,2 
51,247.239 

1280 DATA 252,254,254,254.254,2 
54 254 252 

1290 DATA 95,127,31.31.31.63.12 
7.127 

130O DATA 188,188,168,188,188.1 
24.25 2,248 
1310 LET hiacore'O 
'l320 RETURN 



D 



1000 DIM B(6) ,3(7) .HUSO) 
1010 XP-l:VP-2:P0-4:CT-5:MC-6 
1020 XI"3:YI-4:PI-7 

1022 DIM AD(14J ,EF(4) ,E<4) .GJC7 
) ,KL(4) .HP£7) .QT(73 ,UZtl4) ,SP{7 
).Sl(4).S2t7) .BLC4) 

1023 PMODE 4,1:PCLS1:SG-PEEKC18 
8)*266 

1024 003UB ISOO 

1025 GET(0,0)-<15,23) ,AD,G:PCLB 
1 

1026 G03UB 1520 

1027 GET(0,0)-(15.7) ,EF,G:GETtO. 



,0)-{7.7} .E.OrPCLSl 

1028 OOSUB 1500 

1029 GET£0,0)-(15,15) ,OJ,fl:PCLS 
1 

1030 OOSUB 1520 

1031 GET (0,0) -(15. 7) .KL.QsPCLSl 

1032 OOSUB 1500 

1033 0ET(0,0)-(15,15) .KP.OiPCLS 
1 

1034 OOSUB 1500 

1035 aET(0,0)-(15,15) ,OT,G:PCLS 
1 

1036 G08UB 1500:80-SG+512:GOSUB 
1620:SG-SG-512 

1037 OET(0,0)-(15,23) ,UZ,Q:PCLS 
1 

1036 GETfO,0)-(15,15) ,SP,a 

1039 GET(0,0)-(7,7) ,S1,G 

1040 GET{0,0)-(1S,7) ,S2,G 

1041 PCLSO:GET(0.0)-(7,7) ,SL.O 
1050 DATA 15,63,127,255,255,255 
,255,127 

1060 DATA 240,252,254.255,255,2 

55 255 254 

1070 DATA 127,63,63.31,15.7,3,6 

1080 DATA 254,252,252,248,240,2 

24,192,96 

1090 DATA 32,96,255,255.96,32,0 

,0 

1100 DATA 5.10,252,252,10,5.0,0 

1110 DATA 1.64.17,40,16,0,0,161 

1120 DATA 128,2.136.20.8.0,0.13 

3 

1130 DATA 161,0,0,16.40,17,64,1 

1140 DATA 133,0,0,8,20,136,2.12 

8 

1150 DATA 48,48,48.48.111,111,4 

8,48 

1160 DATA 12,12,12,12,246,246,1 

2,12 

1170 DATA 7,31,49,57,127,112,23 

7,255 

1180 DATA 224,248,140,204,254,1 

4,183,255 

1190 DATA 127,59.51,99,115,35,6 

,12 

1200 DATA 254,108,102,51,49,25, 

24,48 

1210 DATA 7,31,49,51,127,112,23 

5,255 

1220 DATA 224,248,140,156,254,1 

4.215.255 

1230 DATA 127,51,50.27,25,50,11 

2 224 

1240 DATA 254,204,108,102,54,22 

,3,6 

1250 DATA 15,31,19.55,55.63.63. 

15 

1260 DATA 240,248,248,252,252.2 

52,252.240 

1270 DATA 251,219,139,219,219,2 

51.247,239 

1280 DATA 252,254,254,254.254.2 

54.254,252 

1290 DATA 95.127.31,31,31,63.12 

7,127 

1300 DATA 188,188,188,188,186,1 

24,252,248 

1310 HS-0 

1320 RETURK 

1500 FOH CL-0 TO 1 : FOB CH-0 TO 

1:F0H L-0 TO 7; READ J: POKE 3G+C. 



L«256+CH+L*32,255-J:NEXT L . CH , C 

L 

1510 RETURN 

1520 FOB CH-0 TO 1 : FOB L-0 TO 7 

:READ J: POKE SO+CH+L*32 , 25S-J : N 

EXT L,CH 

1530 RETURN 

1600 DATA R6D8L6UBBH8,BR6ND8BR2 

, R6D4L6D4R6BR2BU8 , R6D4NL3D4NL6B 

R2BUe , D4R6D4U8BR2 , NR6D4R6D4 L6BE 

8 

1610 DATA DeR6U4L6U4BR8,R6ND8BR 

2 , R6DSL6U8D4R6U4BR2 , D4R6D4UeL6B 

1620 FOR I-O TO 9:BEAD NUS(I);N 

EXT 

1625 DHAW-C1;S2- 

1630 RETURN 

1650 NS-STHSCNU) :FOa 12-2 TO LE 

N(N$} 

1660 DI-ASC(MIDS(NS,I2,l))-4e;D 

RAU NUStDI)+''BR2":NEXT I2:HETUR 

N 

1700 COLOR 0:LINE (178. 2) - C200 , 

7) ,PSET.BF:NU-H3:DRAH"Cl:BM17e, 

2": OOSUB 1650; RETURN 



fffi 



1000 DIM B(6) ,S(7> :SCREEN2,2 

1005 Al=l:A2-2:BA=3:BE=4:FD"5rF 

L-6 

1010 XP=l:yP-2;PO-4:CT=5;MC-6 

1020 XI=3:Y1=4:P1=7 

1030 FOH I-l TO 6:A3-"" 

1040 FOR J=l TO 32 

1050 BEAD ArAS'AS+CHRSiA) 

1060 SPRITES (1) -A3 

1070 NEXT: NEXT 

1100 DATA 0.0,0,0,7,13,31,18,15 

,10,10,18,10.2,4,0.0.0,0,0,208. 

176,248,72,240.80.60,72,80.64,1 

28,0 

1110 DATA 0,0,0,0, 7,13, Jl, IB,! 

5,10,10.9,8,8.4,0.0,0,0.0.208.1 

76 , 248 , 7 2 , 240 ,80.80.144, 16 ,16,8 

,0 

1-120 DATA 0,0,0,3,16,31.31,31, 

15.15.7,3.3,1,0,0,0,0,0,192.240 

, 24 8. 246 , 248 . 24 , 240 , 224 , 192 , 19 

2,128,0,0 

1130 DATA 0,0,0,0,6,4,0,13,1,0 

.4,4,8,0,0,0,0,0,0,16.32,0,0,12 

8,152,0.64,32.0,0.0,0 

1140 DATA 0,3,7,7.3,1,7,15,15, 

15.15,7,3,2,2,1,0,192,224,2 24,1 

92 , 128 . 2 24 , 240 , 240 , 240 , 240, 224 , 

192,192,192,128 

1150 DATA 0,0,0.0,0,0,16,112,2 

55, 11 2, 16. 0,0. 0,0, 0,0, 0,0, 0,0,0 

,8,16,240,16,8,0,0.0,0,0 

1310 H3=0 

13 20 RETURN 

Esta parte do programa le os dados 
das linhas DATA para montar os blocos 
grificos (UDG ou sprites) do baiao e da 
aranha nas matrizes B (ou b) e S (ou s), 
que sao dimensionadas na linha 1000, 

As linhas 1010 e 1020 definem os va- 
lores iniciais para os apontadores das 957 



%bi 



matrkes, antes dos UDG ou sprites se- 
rem montados. As linhas 1030 a 
1040 (at^ 1070, no MSX) fazem — ^J 
a leltura dos dados em DATA * 
e montam os blocos grdficos. Fi 
nalmente, a iinha 1310 define o re- 
corde como 0. Essa Iinha € execu- 
tada apenas uraa vez. O programa 
para o TRS-Color inclui uma roti- 
iia a mais, que comega na Iinha 1 600. 
Sua fungao e desenhar niimeros na tela 
de aha resolugSo. 



INICIALIZACAO DO JOGO 



3000 LET Bcore=0; LET level=l 

3010 LET iiiy = 15 

3020 LET bl-lS+5*level r LET ax» 

29: LET ay=16: LET dead^O; LET 

propH"3 

3090 GOHUB 5000 

3150 PAPER 0: BORDER Or CLS 

3160 FOR x-Q TO 28: PRINT AT 3, 

3i; INK 0; PAPER 6;" " j AT O.x;" 

" : MEXT x: G03UB 60 00 

3170 POKE 23607.60: PPINT AT 0, 

0; INK 0; PAPER 6 ; "N-' : leve I ; " 

B»";bl;" ': *SC-";BCore:AT 0,2 
; "RE = " ; hlBCore 
3160 POKE 23607,252 
3190 FOR y-5 TO 21: PRINT AT y, 
30; INK ei'kl": NEXT y 
3200 POKE 23607,252 
32] GOSIIB 4000 
3220 GOSUB 4200 
3240 RETURN 

Q 

3000 SC-0:LV-1 
301O MY-15 

3020 BL-15+5*LV:AX-29:AY-16:DD- 
0:PP-3 

3090 GOSUB 5000 

3150 PMODE 4.1: COLOR 0,1:PCLS:S 
CBEEN 1 , 1 

3160 FOR X-0 TO 28 : PUT{X«e , 24) - 
(X«8+7 . 31 ) . BL , PSET : PUT (X*8 , ) - C 
X»8+7.7} ,BL,PSET:NEXT X: GOSUB 6 
000 

3165 DHAWS4;BM2,2;C1;D4R3BR2BU 
1B2BU1L2 ; BM4a , 2 ;D4R4U2L4R3U2L3B 
R6BD2R2BD1L2 i BMlOO ^ 2 ; L4D2R4D2L4 
BH6NR4U4R4 i BMISO , 2 ; D4U2R4D2U4BH 
2B4L2D4L2B4,S2" 

3170 DBAW"Cl:BM14,2i'*;NU-LV:G0S 
UB 1650 

3171 DHAW-BM58.2;":NU-BL:G03UB 
1650 

3172 DRAWBMl 14. 2i":NU-SC: GOSUB 
1650 

3173 DRAW"BH17B,2;":HU-HS:GOSU 
1650 

3190 FOR Y-5 TO 21 : PUT{240 ,T*a) 
-(2S5,y«8+7) ,KL,PSET:NEXT Y 
3210 GOSUB 4000 




3220 GOSUB 4200 
3240 RETURN 



S^^v^ 



.^•i^vr^ 




3000 SC=0:LU=1 

3010 MY-16 

3020 BL=15+5*LV:AX-29;AY=16:DD- 

0:PP-3 

3090 GOSUB 5000 

3160 LINE C0.0)-(231,31K6.BF:L 

INE (0,7)- (80.24) . 14, BFrLINE (8 

7.7)-(152,24) ,14.BFlLINE (159.7 

)-{224,24) ,14,BF 

3170 GOSUB 1700 

31 BO GOSUB 6000 

3190 LINE {240,31)-C240.190) ,1: 

LINE (2S5,31)-{255,190) ,1:F0H I 

=2 TO 15:LINE (240 , 1*16) -( 255,1 

*16).1;NEXT 

3210 GOSUB 4000 

3220 GOSUB 4200 

3 230 RETURN 

As linhas 3000, 3010 e 3020 zeram o 
placar, inicializam o nivel de dificulda- 
de em I e definem uma serie de varia- 
veis auxiliares. A Iinha 3150 determina 
as cores da tela (menos no MSX) e as 
linhas 3 160 a 3 1 70 exibem o placar e ou- 
tras informa96es necessdrias. 

O programa do Spectrum inclui uxn 
POKE na Hnha 3170 e outro na 3180. 
A posigao de mem6ria 23607 guarda o 
apontador do conjunto de caracteres, 
Normalmente, ela tern o valor 60, que 
aponta para o conjunto de caracteres da 
ROM. Nesse programa, entretanto, o 
valor colocado no endere(;o 23607 para 
indicar a posi?ao dos caracteres € 252. 
Isso permite ao computador usar as le- 
tras minuscuEas, aldm das raaiiisculas e 
dos niimeros, como grdficos. 

O programa reserva uma irea da me- 
m6ria usando CLEAR e .aii coloca os 
UDG. Devido ao seu efeito sobre as sub- 
rotinas, esse comando deve ser utiliza- 
do no programa principal, o que fare- 
mos na segunda parte do jogo. Portan- 
to, se vocS quiser executar as linhas aqui 
apresentadas, digite antes CLEAR 
65287. 

A Iinha 3190 se incumbe de desenhar 
a escada, e as sub-rotinas chamadas nas 
linhas 4000 e 4200 desenham, respecti- 
vamente, Freddy e a aranha. 



FREDDY E A FLECHA 



4000 INK 7: PRINT AT «y.30!"uV, 

;AT ii»Y+l,30;"MX";AT iBy+2,30;-yz 

": IF ax=29 THEN PRINT AT ay. a 

X ; "e' ! 

4010 RETURN 

4110 INK 7: PRINT AT ay.3x;°ef- 

r RETURN 




As figuras montadas pelii programs tal como aparecetn na tela 
dos microcampuladures da linha Spectruin. 



D 

4000 PUT(240,Mlf*8)-(255.MY«8+23 
),UZ,PSET:IF AX»29 THEN POT (AX* 
8,Alf*8J-{AX*3+7.AY*8+7} .E.PSET 
4010 RETURN 

4110 PUT(AX*8,AY*8)-(AX«8+15,Ay 
*8+7) pEF.PSET: RETURN 



4210 PUT(X2.Y2)-(X2+15,Y2+15) ,H 
P.PSET: RETURN 

4250 PUT{X2.Y2)-(X2+15,¥2+15) ,Q 
T, PS ET: RETURN 



fffi 



fffi 



4000 PUT SPRITE Z , C240.MY*8) . 1 , 

FD:IF AX=29 THEN PUT SPRITE 3,C 

AX*8,AY«8) .4,FL 

4010 RETURN 

4110 PUT SPRITE 3, {AX*8,AY*8) ,4 

, FL ■ RETURN 

Essa rotina desenha Freddy sobre a 
escada e sua flecha. A posi^ao do nos- 
so personagem ^ determinada pelo va- 
lor de M¥. A flecha, por sua vez, e de- 
senhada peia iinha 41 10 na posipao da 
tela indicada pelos valores de AX e AY. 



A ARANHA MARC1A^A 



4200 IF 9 (picture) -1 THEN GOTO" 

4250 
4210 PRINT AT a (ypos) , s Cxpoa) ; " 
nn" ;AT a (ypoa) +1 , 3 (xpos) ;"op" ■ 
RETURN 

4250 PRINT AT a (ypos} , s (xpos) I " 
t]r";AT a (ypoa) +1 , a (xpoa) ; "at ' ; 
RETURN 



a 



4200 X2-S(XP)*8:Y2-SCYP}*e:IF S 
(PI)-l TEEN 42S0 



4200 X2=S(XP)*B;?2=S{YP)«8:IF S" 
(PI)=1 THEN 4260 

4210 PUT SPRITE 1 , (X2 , Y2) , 12 ,A1 
: RETURN 

4250 PUT SPRITE 1 , (X2 , Y2) , 12,A2 
: RETURN 

A rotina que desenha a aranha se as- 
semelha a anterior, exceto num detalhe: 
duas imagens sao usadas para essa figu- 
ra. Colocadas altemadamente no mes- 
mo lugar da tela, pelas iinhas 4210 e 
4250, simulam o movimento das pernas 
da aranha. 



SOBEM OS BALOES 



4300 PRINT AT b lypoa) ,b (xpoa) ; 
BRIGHT 1; INK bCcolour ) r "ab" i AT 
b(ypoa)+l.b(xpoa) i"cd": RETURN 

5000 LET range-'INT (aND*63 

5010 LET b(ApoB)-(4*ranae)+INT 

{aND*4) 

5020 LET b(ypoB)=20 

5030 LET b{iiiaxeount)-5-level 

5040 LET b (count) -1 

S050 LET b(colour)-INT (RND*5)+ 

3 

5060 LET b (points) =10-range 

SO 7 RETURN 

Q 

4300 X2-B(XP)«8:Y2-BtYP)*e:PUT( 
X2,Y2)-(X2+15.Y2+23) ,AO,PSET:RE, 



TURN 

5000 R0-RND{6)-1 

5010 B(XP)-{4*RG)+END(4)' 

5020 B{yP)-20 

5030 B(HC)-5-Ly 

5040 B(CT)-1 

5060 B(PO)-10-Ra 

5070 RETURN 



m 



4300 X2=B(XP)*8:y2=B(YP)*B:PUT 

SPRITE 4, (X2,Y2) ,9,BA:HETURN 

5000 RG-INT(HND(1)''6) 

5010 B(XP)-{4*RG}+1NT(RND(1)*5) 

5020 B(YP)-20 

5030 B(MC)-5-LV 

5040 B(CT)-1 

5050 B(PO)»10-Ra 

5070 RETURN 

A linha 4300 simplesmente desenha os 
baloes na tela. As Iinhas restantes encar- 
regam-se de inflar um balSo toda vez que 
um outro esiourar ou alcangar a gaiola 
da aranha (os baloes podem aparecer em 
qualquer um dos seis pontes da parte in- 
ferior da tela, flutuando em seguida pa- 
ra cima, na direpao vertical, A variavel 
MAXCOUNT (ou, ainda, maxcount ou 
MQ conforme o computador) determi- 
na o quanto o baJao se moveu. ou seja, 
o m'vel que ele atingiu. Era seguida, o 
programa define a cor do balao e seu va- 
lor em pontes, Este dependerd de sua 
proximidade da escada de Freddy. 



AS PORTAS 



6000 IF levelOl THEN POKE 236 

07,60: PRINT AT s (ypos) , B (xpcia) 

i" ";AT fl(ypoB)+l,a(xpOB) j" 

: POKE 23607,252 

6010 FOR x-10 TO 30 STEP 9 

6020 PRINT INK 6: AT l,*i""!AT 

2,x;"" 

6030 NEXT Jt 

6040 LET a(xpoB)"l: LET atypoaj 

-1 : LET B(xinc)'=l: LET a(yinc) = 

0: LET a (count) "4 r LET atniaxcou 

nt)-4: LET a (picture) -1 

6050 RETURN 



D 



6000 IF LVOl THEN X2-9(XP)*e:Y 

2-S CYP) *B : PUT (X2 , Y2) - (X2+15 , Y2-1- 

15) .SP.PSET 

6010 FOR X-10 TO 30 STEP 9 

6020 PUT(X*B,0)-(X*8+7,15) ,BL,P 

SET:PUT{X«8,16)-(X*8+7,23) ,BL,P 

SET 

6030 NEXT X 

6040 S(XP)-1:S(YP)-1:S<XI}-1:S(. 



YI)-0:S(CT)-4:S{MC)-4:S(PI)-1 
6050 RETURN 



fffi 

6000 S(XP)-1:S(YP)=1 :S{XT) = 1:S(. 
Yiy=0;S«:T)=4:S{MC)=4:S(PI)=l 
6010 RETURN 

Tres portas fecham a gaiola da ara- 
nha, para mante-la presa. Os usuarios 
do Spectrum notarao que o caractere lis- 
tado como ? e, de fato, um quadradi- 
nho grafico, obtido com a tecla 8 em 
modo grafico. 

A primeira segao do programa defi- 
ne OS grdficos e iiiicializa o jogo, 



A INICIAUZACAO 



lOOn DIM BC6) .3(7) .NUS<9) : SCA 

LE= 1: ROT- Or HCOLOR- 3 

1010 XP - 1:YP - a;PO - 4 : CT - 

5:MC = 6 

1020 XI - 3:yi - 4:PI = 7 

10 25 Al = liA2 = 2;BA = ,1 ; BE = 

4: FD = 6:FL - 6 

1030 DATA 6.0,14,0.75,0,136, 

0,1,1.21 ,1,156.1 

1040 DATA 4!i. 45, 45. 45. 77,58, 

63,63,6 3,63.6 3.63,55,173,240 

1050 DATA 43,45,46.44,45,53.4 

5.3 7,45.62,54,63,63,63,63.63.63 

.lee 

1060 DATA 10.62,62,62,54. lOQ, 
145. 37, 37, 35. 36,] 00, 73, 17, 54. 54 

1070 DATA 54,53,109,193.193.1 

93,45,36,39,39,36.0 

1080 DATA 45,45,45,45,117,57 

.63,63.63,63,63.63,55,45,222 

1090 DATA 45.45.37,4 6,45,46,4 

6,44,53,55.62,63.6 3,6 3,63,53, 39 

,151 

1100 DATA 49,54,62,62,62,79,7 

3,72.1,193,193,39,39.108,73 

1110 DATA 9,54,55.183,74,73,7 

3.39.39,39, 36, 36,0 

1120 DATA 45,45,45.53,63,63, 

63.63,56.45 ,45,46.45,45.44,54 

1130 DATA 63.63.63.63.63,63.5 

5.4 5,4 5,45.45,45,4 5,45.44.54.63 

1140 DATA 63.63.63,63,63.63,5 
5,45.45,45,45,45,45.45.53,63 
1150 DATA 63,63,63,63,63.63.5 
5 , 45 .45 , 45 . 45 , 45 , 45 , 45 , S3 . 63 , 63 
.63 

1160 DATA 63,63,63,63.46.45, 
45.45,45,46,45,62,63,63,63,63,6 
,3 
1170 DATA 55.46,45.45,45,45,5 
3,6 3.63,63,63,63,46.45,45,46,45 
.62 
1180 DATA 63,63.63,55.45.45.4 

5, 5 3, 6 3, 63, 55,62,87, 73. 7 3, 8, 39. 

«l4.0 



1190 DATA 

,57,223,219 

,9,53,46.45 

120 DATA 
53.63.46,45 
1210 DATA 
5.45,45.62 
1220 DATA 
63,63,46,45 
3,63,63 
]230 DATA 
6.45,45,45, 
1240 DATA 
,63,46,45.4 
1250 DATA 
3,60,54,45, 



46,110,9,44.172,146 
,59,191,146,45,37,77 
,0 

45.46,45,53,63.63, 
.45.45,45,44,54.63 

63,63,53,63,46,45.4 
63,63,63,65,45,45 

45,45,222,63.63.62. 
,45, 37,45,45.45,45,5 

63,63,62.63,63,63,4 
37,45,45,45,53,63 

63.53,62,63,63,63 
5,45,45,45,44,45.53 

63, 55,62.63,63,63,6 
45,45,45,45,62,63,63 



1255 DATA 63.63,46,45,45,45,5 

3, 63, 63, 63, 63, 45, 4b, 45, 45, 62, 63 

,63,55 

1260 DATA 45.45,46,62,63,63,4 

6,45.45,62.63,63,55,45.45,46,5, 



1270 DATA 45,44,54,119,33,36 

,44.54.54.3 7,36,17 2,4 2.45.45,45 

,45,6,0 

1280 FOB I = 16384 TO 16816: fi 

EAD C: POKE I,C: NEXT 

1290 P ■= 233: POKE P . 54 : POKE P 

-1.0 
1300 HS = 
1310 RETURN 

Essa parte do programa le os dados 
das linhas DATA para montar, nas ma- 
trizes B e S (dimensionadas na linha 
lOOO), OS b locos grdficos do balao e da 
arantia. 

As linhas lOlO a 1025 determinant os 
valores iniciais para os apontadores das 
matrizes. As linhas 1280 a 1290 fazem 
a leitura dos dados em DATA (linhas 
1030 a 1270) e a montagem dos blocos 
gr^ficos. Finalmente, a linha 1310 defi- 
ne o recorde como 0. Essa iinha serd exe- 
cutada apenas uma vez. 

Adicione agora este programa: 

3000 SC = 0:LV = 1 

3010 MY = 15 

3020 BL = 16 + 5 * LV:AX - 28:A 

Y "■ 16 : DO = : PP = 3 

3090 GOSUB 5000 

3160 HGR : GOSUB 1700 

3160 FOB Y - TO 3: HPLOT 0,Y 

TO 234, V; HPLOT 0,Y + 23 TO 23 
4 Y +■ 23 ; NEXT 
3170 FOE X - TO 3: HPLOT X + 

77,3 TO X + 77.23: HPLOT X + 1 
54,3 TO X + 154,23: HPLOT X + 2 
31.3 TO X + 231.23: NEXT 
3175 GOSUB 6000 
3190 HPLOT 236,25 TO 235.160: 
HPLOT 255.25 TO 255.160 
3210 GOSUB 4000 
'3220 GOSUB 4200 
3240 RETURN 

As linhas 30O0, 3010 e 3020 zeram o 
piacar, inicsaUzam o nivel de dificulda- 
de em 1 e definem uma s^rie de varia- 
veis atixiliares necessarias ao jogo, As 
linhas 3160 a 3180 mostram o piacar e 



outras informa<;6es. A linha 3190 dese- 
nha a escada, e as sub-rotjnas chama- 
das nas linhas 4000 e 4200 desenham, 
respectivamente, Freddy e a aranha. 

A rotina seguinte desenha Freddy na 
escada e sua flecha. A posipao do nos- 
so personagem e determinada pelo va- 
lor de MY. A flecha, por sua vez, e de- 
senhada pela linha 41 10 na posi^ao da 
tela indicada pelos vaJores de AX e AY. 

4000 DHAM FD AT 240, MY * 6: IF 
AX - 28 THEN DRAW FL AT AX * 

8, AY * 6 

4 010 RETURN 

4110 DRAW FL AT AX * 6, AY * 8: 
RETURN 



A ARANHA MARCIANA 



4200 X2 = StlCP) « 8:Y2 = E(YPJ 

« 8: IF S(PI) = 1 THEN 4250 

4 210 DRAW Al AT X2,Y2: RETUBN 

4Z50 DRAW AZ AT X2,yZ: RETURN 

A rotina que desenha a aranha e mui- 
to paiecida com a anterior, exceto por um 
detalhe: duas imagens sao usadas para es- 
sa figura (A I e A2). Elas sao colocadas 
alternadamente no mesmo lugar da tela, 
pelas linhas 4210 e 4250, simulando que 
as pernas da aranha se movem. 

4300 X2 - B£XP) * e:Y2 = {B(YP) 
+1) « 8: HCOLOR- 0: DRAM BA A 

T X2.Y2: HCOLOft- 3;Y2 - B(YP) * 
8: DRAU BA AT X2.Y2: RETURN 

5000 BG «■ INT { BND (1) * 6) 

5010 B(XP) - (4 * RGJ + INT ( 

RND (1) * 5) 

5020 B(YP3 - 20 

50 30 BtMCJ - 5 - LV 

5040 B(CT) - 1 

5050 B(PO) - 10 - HG 

507 RETURN 

A linha 4300 desenha os baJoes na te- 
la. As linhas restantes encarregam-se de 
inflar om baiao toda vez que um deles 
estourar ou alcan^ar a gaiola da aranha. 

Os baldes aparecem em quaiquer um 
dos seis pontos da parte inferior da te- 
la, flutuando em seguida verticalmentc. 
A variavei MC determina o nivel que o 
balao atingiu. Por fim, o programa es- 
tabelece o valor, em pontos, do balao, 
segundo sua proximidade da escada. 

A rotina final dessa parte do jogo e 
responsavet pela contagem do mimero 
de portas (mdximo de tres) que esiao 
mantendo a aranha dentro da gaiola. 

6000 IF LU < > 1 THEN X2 = S ( 

XP) * 8:Y2 = S(YP) * 8: DRAM AL 

GUMAOOISA 

6010 S{XP) = l:StYP) = IrS(XI) 

= 1:S{YI] = 0:S(CT} = 4 : S [MO = 

4:S(PI) - 1 
6050 RETURN 



p 


^^^^ftBi 


»-;->. ^ 


syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMApAO BASIC 

uso de rotinas em c6digo de m^quina dentro de programas 
BASIC. Os comandos USR e DEFUSR. Armazenagem de rotinas USR. 

PERIFERICOS 

Os diferentes tipos de tabletes grSficos. Digitaliza?!© e mapeamento. 
Geracao de sinais. Sensores de superffcie. 

PROGRAMApAO DE JOGOS 

Programe uma colonia de bacterias em c6digo de mdquina. 

C6DIG0 DE MAQUINA 

A rotina principal de Avalanche. Acertos iniciais. 

PROGRAMACAO DE JOGOS 

Complete o jogo A Aranha Marc/ana, Hstando 
as rotinas de animaQao. 




